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PREFACE 


This  study  was  conducted  by  the  US  Army  Engineer  Waterways  Experiment 
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Dimensional  Dynamic  Loads." 

The  methods  of  formulation  used  are  an  extension  of  the  work  done  by 
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assistance  at  the  early  stages  of  this  work  are  greatly  appreciated.  During 
the  course  of  this  study,  the  results  of  another  study  using  element 
condensation  for  pavement  systems  were  reported  by  Hanazato  et  al.  (1991). 
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PART  I: 


INTRODUCTION 


General 

1.  Many  problems  of  Elastodynamics  --  the  study  of  the  response  of  an 
elastic  body  to  dynamic  forces  --  have  been  evaluated  experimentally,  solved 
explicitly,  or  have  been  properly  formulated  for  implicit  solution  over  a  160 
year  history  dating  back  to  Cauchy,  Poisson,  Stokes,  and  Lame'  during  the 
early  to  mid-  1800's.  As  each  class  of  problems  is  solved,  more  complex 
problems  are  presented  or  more  accurate,  more  efficient,  or  simpler  means  to 
solve  a  problem  are  desired.  Accuracy,  efficiency,  and  simplicity  are  all 
important  aspects  to  the  integration  of  new  technology  into  military  systems. 

2.  The  present  study  is  a  systems  analysis  of  the  forward  problem  to 
estimate  the  variation  of  displacements  in  space  and  time  produced  by  dynamic 
loads  in  complex  isotropic  media,  consisting  of  dipping,  discontinuous,  and/or 
irregular  layers,  using  a  numerical  approximation  method.  The  distinguishing 
feature  of  this  study  is  a  formulation  that  allows  three-dimensional  (3-D) 
problems  to  be  solved  using  a  two-dimensional  (2-D)  numerical  model.  To 
implement  this  method,  the  stratigraphy  and  material  properties  of  the  model 
cannot  vary  in  a  horizontal  direction  (2-D  stratigraphy).  However,  the 
distribution  and  extent  of  loads  may  vary  in  both  horizontal  directions  (3-D 
load)  providing  for  the  analysis  of  synthetic  vibratory  sources  such  as  a 
Vibroseis  truck.  Examples  of  2-D  and  3-D  loads  are  shown  in  Figure  1.  These 
types  of  problems  cannot  be  solved  analytically  but  normally  would  be  solved 
using  a  laborious  3-D  numerical  approximation. 

3.  Soil  dynamics  studies  conducted  in  the  1950 's  and  1960 's  using 
finite  difference  and  finite  element  methods,  and  in  the  1970 's  and  1980 's 
using  Green's  functions  and  boundary  element  models,  generally  assumed  plane 
harmonic  waves  and  horizontally  layered  media  extending  to  infinity.  The 
subsurface  distribution  of  materials  at  most  sites  is  not  simple  nor  is  it 
conducive  to  analytical  closed- form  solutions  of  wave  propagation  problems. 


TWO-DIMENSIONAL  LOADS  : 


Line  [  F/L  ] 


THREE-DIMENSIONAL  LOADS :  Point  [  F  ] 


Rectangular  [  F/L2  ] 


Figure  1.  Comparison  between  2-D  and  3-D  loads 
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Sloping  strata  of  finite  length,  an  irregular  ground  surface,  and/or  two- 
dimensional  load  distributions  are  prevalent.  The  present  study  describes  a 
procedure  to  analyze  wave  propagation  in  these  more  complex  systems. 

4.  This  report  describes  a  means  to  efficiently  calculate  dynamic 
vertical  displacements  by  representing  3-D  systems  with  an  equivalent  2-D 
model.  The  finite  element  method  was  selected  for  computational  solution  to 
permit  discretization  of  geosystems  with  numerous  materials  of  arbitrary 
geometry.  Initially,  only  steady-state  dynamic  loads  are  considered  although 
the  computer  code  can  be  easily  adapted  to  allow  the  solution  for  transient 
loads  by  performing  an  additional  Fourier  transformation  of  the  load  function 
from  the  time  to  frequency  domain. 

5.  The  formulation  involves  two  primary  components:  the  condensation 
of  3-D  dynamic  stiffness  matrices  to  equivalent  2-D  matrices  and  the 
representation  of  the  distribution  of  loads  in  the  out-of-plane  direction 
using  a  Fourier  expansion.  This  strategy  was  explicitly  proposed  for  axi- 
symmetric  problems  by  Winnicki  and  Zienkiewicz  (1979)  and  Lai  and  Booker 
(1991)  and  for  3-D  formulations  by  Runesson  and  Booker  (1982,  1983)  and  Lin 
and  Tassoulas  (1987)  .  This  strategy  was  used  specifically  for  wave 
propagation  studies  in  horizontally  layered  pavement  systems  by  Kang  (1990) 
and  Hanazato  et  al.  (1991).  The  2-D  system  of  equations  are  first  solved  in 
the  frequency  and  wave-number  domain;  inverse  Fourier  transforms  are  then 
performed  to  obtain  the  solution  as  a  function  of  out-of-plane  distance  and 
time,  if  so  desired. 

6.  One  objective  of  this  study  is  to  examine  the  potential  for 
determining  elastic  moduli  (i.e.,  shear,  constrained,  and  Young’s  moduli)  in 
complex  systems  of  soil,  rock,  and  structural  materials  from  measured  motions 
(the  inverse  problem).  The  Spectral-Analysis-of-Surface-Waves  (SASW)  method 
(Nazarian  and  Stokoe  1985a,  1985b)  is  one  possible  existing  method  of  field 
measurement  and  mathematical  inversion  to  determine  the  moduli  of  horizontally 
layered  systems.  This  method  involves  the  use  of  signal  processing  techniques 
on  two  measured  vertical  components  of  motion  spaced  at  equal  increments  from 
the  vibratory  source.  A  similar  procedure  of  determination  is  desired  for 
more  complex  systems.  In  addition,  the  use  of  artificial  neural  networks 
holds  promise  to  improve  inversion  schemes  (Rix  and  Leipski  1991). 

Therefore,  Rayieigh  wave  propagation  will  be  of  primary  interest.  Rayleigh 
waves  normally  contain  most  of  the  energy  of  wave  propagation  for  the  near 
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propagation  for  the  near  surface  regime  and  Rayleigh  wave  energy  will 
attenuate  with  distance  at  a  much  lower  rate  than  body  waves.  The  response  at 
the  grourd  surface  is  normally  cf  greatest  interest  since  it  provides  the 
easiest  access  for  measurements. 


Terminology 

7.  It  is  useful  at  this  point  to  define  some  terminology.  Geosystems 
are  systems  containing  soil,  rock,  and  possibly  embedded  foundations.  Three- 
dimensional  loads  may  be  either  point  loads  or  loads  acting  over  a  finite  area 
in  plan  (e.g.,  tires,  tracks  of  vehicles,  platen  of  Vibroseis  truck,  or 
blast) .  Two-dimensional  loads  are  synonymous  with  plane  waves  or  line  loads 
extending  to  infinity  in  the  direction  perpendicular  to  the  analysis  plane. 
Plane  waves  refer  to  conditions  where  all  points  on  a  plane  perpendicular  to 
the  direction  of  wave  propagation  undergo  an  identical  incident  disturbance  at 
all  instants  of  time  during  the  disturbance.  The  term  "irregular"  applied  to 
surfaces  and  layers  is  synonymous  with  the  terms  "dipping"  (i.e.,  non¬ 
horizontal)  or  "discontinuous"  (i.e.,  of  finite  length),  or  both,  and  includes 
layers  with  varying  thickness.  Contacts  between  layers  can  be  approximated 
with  a  series  of  second  degree  parabolic  segments. 

Assumptions  for  Two-Dimensional  Systems 

8 .  A  common  assumption  used  to  reduce  the  computational  effort  for 
the  engineering  analysis  of  stress  and  strain  in  boundary  value  problems  of 
interest  for  geotechnical  engineering  applications  is  that  of  plane  strain. 
Plane  strain  implies  that  the  displacements  in  the  direction  perpendicular  to 
a  two-dimensional  plane  are  equal  to  zero  (Love  1944).  This  assumption 
reduces  the  scope  of  a  problem  from  three  to  two  dimensions.  Conditions  of 
plane  strain  require  2-D  geometry  and  boundary  conditions  and  loads  that  are 
uniform  in  the  direction  perpendicular  to  the  plane  under  consideration 
(Timoshenko  and  Goodier  1970)  A  plane  wave  with  particle  motion  only  in  the 
?-D  analysis  plane  is  consistent  with  this  assumption. 

9.  A  surface  load  distributed  over  a  finite  surface  induces  stresses 
that  vary  in  three  principal  directions.  If  stresses  vary  in  a  direction 
perpendicular  to  the  analysis  plane,  displacements  and  strains  will  be  non- 
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zero.  Therefore,  three-dimensional  loads  are  inconsistent  with  plane  strain 
assumptions.  Axi-symmetric  modeling  is  an  alternative  procedure  for  one¬ 
dimensional  soil  profiles.  Many  synthetic  loads  applied  to  the  earth  are  of 
small  dimensions  relative  to  the  extent  of  the  analysis  plane.  For  example, 
Rayleigh  waves  produced  by  a  Vibroseis  truck  propagate  through  a  layered  half¬ 
space  in  three  dimensions  invalidate  the  assumptions  of  plane  strain. 

10.  Examples  of  two-dimensional  analysis  planes  and  boundary 
conditions  in  systems  that  may  exist  in  a  state  of  plane  strain  include  planes 
perpendicular  to  the  axis  of  long,  straight  structures:  tunnels  (without  rock- 
bolt  reinforcement),  embankments ,  retaining  walls  (without  tiebacks  or 
anchors) ,  and  vertical  planes  through  isotropic  soil  deposits  and  geologic 
media  that  have  no  variation  in  profile  for  some  arbitrary  direction.  Uniform 
loadings  for  these  examples  would  include  self  weight  (body  forces)  and 
hydrostatic  (pool)  loads  for  embankments,  lateral  forces  on  retaining  walls, 
roof  stresses  in  tunnels,  and  surcharges  (e.g.,  highway  embankment)  in  soil 
deposits  or  geologic  media.  Some  examples  are  shown  in  Figure  2  and  assume 
that  the  soil -structure  system  extends  to  a  large  distance  relative  to  the 
predominant  wavelength  and  distance  from  the  source. 

11.  This  study  deals  with  the  analysis  of  "planar"  geosystems  which 
proves  to  be  beneficial  from  a  computational  standpoint.  The  primary 
assumptions  are  that  the  geometry  and  boundary  conditions  of  the  system  and 
the  distribution  of  material  properties  are  planar  (2-D)  but  the  loads  are 
non-planar  (3-D) .  This  set  of  conditions  has  a  broader  range  of  applications 
than  that  for  plane  strain  while  circumventing  expensive  3-D  solution  methods. 

Overview  of  Report 

12.  This  report  presents  a  broad  discussion  of  aspects  related  to  the 
analysis  of  Rayleigh  wave  propagation  in  geosystems  using  numerical  methods. 

A  review  of  previous  studies  is  presented  first.  Next,  the  mathematical 
formulation  and  computer  implementation  of  the  finite  element  method,  element 
condensation,  and  Fourier  superposition  are  described.  Validation  and 
parametric  analysis  of  the  computer  code  are  presented  along  with  a  comparison 
of  computation  times  with  3-D  finite  element  codes.  The  main  part  of  the 
report  concludes  with  a  summary  section.  A  listing  of  the  primary  computer 
program,  vib3 ,  and  a  sample  problem  are  included  in  the  appendices. 
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PART  II:  EXISTING  SOLUTIONS  FOR  DYNAMIC  LOADS 


Introduction 

13.  The  evolution  and  the  state  of  knowledge  for  dynamic  loads  acting 
on  elastic  media,  particularly  that  involving  coupled  compression  (P) ,  in¬ 
plane  shear  (SV) ,  and  Rayleigh  (R)  waves,  was  reviewed  to  provide  insight  into 
which  problems  have  been  solved,  what  approaches  were  used,  what  conclusions 
have  been  reached,  and  which  studies  provide  a  proper  basis  for  comparison  or 
validation  of  the  proposed  formulation.  Some  general  conclusions  are: 

a.  Almost  all  the  studies  for  layered  systems  considered  plane  wai'e 
propagation. 

b.  Many  of  the  earlier  studies  that  examined  R-wave  energy  did  not 
include  in-plane  P-SV  waves, 

c.  Experimental  studies  generally  focused  on  "thin  plate"  tests  that 
have  plane  stress  boundary  conditions  which  are  inconsistent  with 
stress  conditions  for  most  geosystems,  and 

d.  Plane  strain  conditions  were  generally  assumed  for  theoretical  and 
numerical  studies. 

The  distribution  of  stresses  caused  by  static  point  loads  were  also  compared 
using  closed-form  solutions  to  quantify  the  errors  associated  with  incorrectly 
modelling  2-D  and  3-D  loads.  A  presentation  of  these  findings  is  made  in 
Appendix  A. 

14.  The  literature  reviewed  has  been  categorized  for  purposes  of 
explanation  into  four  groups:  fundamental  studies  (point  loads  in  full  or 
half -spaces) ,  exact  solutions  for  layered  systems,  experimental  studies 
(laboratory  and  field  measurements),  and  numerical  and  theoretical 
approximations . 


Eyntafflmal  Studies 

15.  The  study  of  dynamic  displacements  and  wave  propagation  began  in 
the  early  19th  century  with  Poisson  and  Kelvin.  Stokes,  Love,  Rayleigh,  and 
I-nmh  in  the  late  19th  century  further  defined  fundamental  aspects  of  wave 
propagation  in  layered  media  and  spheres.  A  summary  of  consequent  studies 
that  pertain  to  in-plane  surface  waves  is  presented  in  Table  1.  Research 
studies  as  recent  as  Vardoulakis  and  Vrettos  (1988)  and  Banerjee  and  Mamoon 
(1990)  still  consider  the  solution  and  formulation  for  three-dimensional 
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(point)  load  acting  on  or  in  an  elastic  half  space.  The  studies  listed  in 
Table  1  are  not  directly  applicable  to  the  analyses  and  comparisons  in  this 
study  because  most  deal  with  non- dispersive  media  or  impulsive  sources,  or 
both.  Many  studies  consider  3-D  loads  but  the  medium  is  too  simple  to  use  for 
validation. 


Table  1 

Initial  Studies  of  In-Plane  Surface  Waves 


Produced  bv  Dynamic  Loads 


Study 

Load 

Distribution 

Load 

Type 

Solution 

Mindlin  (1936) 

Internal  point 
load 

Harmonic 

Exact 

integrals 

Pinney  (1954) 

n 

Impulsive 
(Pure  P  or  S) 

Exact 

integrals 

Pekeris  (1955) 

Surficial  point 
load 

Impulsive 

Contour 

integration 

Mooney  (1974) 

Surficial  point 
load 

Impulsive 

Elliptic 

integrals 

Vardoulakis  and 
Vrettos  (1988) 

Line  load 
(planar) 

Harmonic 

Numerical 

solution 

eigenvalue 

problem 

Closed-Form  Solutions  for  Layered  Systems 

16.  Numerous  studies  have  been  conducted  since  the  1950 's  to  develop 
different  means  to  solve  wave  propagation  problems  considering  the  wide  range 
of  conditions  that  would  affect  wave  propagation.  The  response  of 
horizontally  layered  media  extending  to  infinity  and  overlying  a  half- space 
was  first  addressed  by  Thomson  (1950)  and  corrected  by  Haskell  (1953).  Dunkin 
(1965)  also  added  a  correction  to  this  formulation  to  maintain  an  acceptable 
degree  of  accuracy  at  high  frequencies.  Other  studies  since  that  time  have 
considered  refinements  or  have  broadened  the  range  of  solvable  conditions 
(e.g.,  Pestel  and  Leckie,  1963;  Harkrider,  1964;  Waas ,  1972b;  and  Kausel  and 
Roesset,  1981).  Green’s  functions  were  evaluated  numerically  by  Apsel  (1979) 
and  Kausel  (1981).  Studies  utilizing  closed-form  solutions  are  listed  in 
Table  2. 
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Table  2 

Theoretical  Solutions  for  Rayleigh  Plane  Wave 


Propagation  in  Layered  Systems 

Study 

Load 

Distribution 

Load 

Type 

Approach 

Thomson  (1950)  & 
Haskell  (1953) 

Plane  wave 

Harmonic 

Transfer 

Matrix 

Pestel  and  Leckie 
(1963) 

H 

It 

It 

Harkrider  (1964) 

Point  or 
line  load 

Explosive , 
Point,  or 
Strike -slip  fault 

Matrices  to 
derive 
integrals 

Dunkin  (1965) 

Plane  wave 

Harmonic 

Transfer 

Matrix 

Waas  (1972b) 

It 

n 

II 

Apsel  (1979) 

Point  or 
disk  load 

M 

Green's 

functions 

Kausel  and  Roesset 
(1981) 

Plane  wave 

M 

Stiffness 

Matrix 

Kausel  (1981) 

Point,  disk, 
or  ring  load 

Harmonic 

Green’s 

functions 

17.  The  studies 

lumped  into  this 

category  represent  a 

significant 

capability  to  calculate  the  dynamic  displacements  in  an  ideally  layered 
system.  These  studies  are  still  used  successfully  in  various  applications. 
Although  the  assumptions  for  an  ideal  layered  system  are  unrealistic  for  many 
actual  conditions,  reasonable  results  can  be  obtained  for  simple  soil  and  rock 
systems.  The  matrix  solutions  can  be  applied  to  plane  wave  propagation 
problems  which  are  not  of  interest  here.  The  Green's  function  solutions  allow 
analysis  of  axi-symmetric  problems  which  means  3-D  loads  (point  and  disk)  in 
2-D  geometry  (function  of  depth  and  radius). 

18.  The  computer  program  developed  as  part  of  this  study  was 
validated  using  a  solution  method  reported  by  Kausel  (1981)  for  axi-symmetric 
problems  with  horizontally  layered  systems  extending  to  infinity.  The  method 
by  Kausel  involves  evaluating  discrete  Green's  functions  numerically  and 
approaches  the  exact  solution  as  the  number  of  layers  increases.  More 
complicated  problems  cannot  be  solved  accurately  with  this  method.  As  a 
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consequence,  researchers  have  had  to  extract  information  from  experimental 
measurements  and  numerical  and  theoretical  approximations. 

Experimental  Studies 

19.  Experimental  studies,  consisting  of  laboratory  thin  plate  tests 
and  field  vibration  tests,  were  predominant  in  the  late  1950 's  and  1960 's  both 
in  the  laboratory  and  in  the  field.  This  thrust  seems  to  correspond  to  a 
proliferation  in  the  availability  and  use  of  electronic  equipment  and  analog 
recording  devices .  This  period  is  marked  by  the  general  absence  of 
theoretical  studies  and  generally  pre- dates  the  solution  of  these  problems  via 
numerical  techniques  using  computers. 

20.  Measured  values  provide  realistic  assessment  of  usefulness  and 
applicability  of  a  method  but  are  not  accurate  and  consistent  enough  for 
validation.  A  sufficient  signal-to-noise  ratio  must  be  obtained  and 
repeatable  measurements  must  be  available .  Measurements  made  in  the 
laboratory  produce  a  wide  range  of  possible  values.  Field  measurements  have 
inherent  scatter  and  uncertainties  because  of  the  natural  (unknown) 
variabilities  of  soil  deposits.  However,  these  same  conditions  must  be 
recognized  when  proposing  or  fielding  a  new  system  for  field  measurement. 
Laboratory  studies 

21.  Several  laboratory  studies  reported  in  the  literature  are  listed 
in  Table  3.  Most  laboratory  studies  examined  the  propagation  of  waves  along 
the  edge  of  thin  plates.  This  type  of  test  consists  of  cutting  shapes  from 
plates  of  material  on  the  order  of  0.16  cm  in  thickness,  standing  the  plate  on 
edge  and  placing  receivers  at  various  locations,  producing  an  impulse  across 
the  thickness  of  the  plate  at  some  point,  and  then  recording  the  wave  as  it 
propagates  through  the  irregularity.  A  simple  schematic  of  the  system  used 
by  most  researches  in  the  laboratory  is  shown  in  Figure  3.  Circular  disks  and 
concentric  rings  were  used  rather  than  quadrilateral  shapes  in  one  study. 

Some  of  the  first  studies  of  this  type  were  reported  by  Kato  and  Takagi  (1956) 
and  Viktorov  (1958)  although  little  is  known  about  the  experimental  system  or 
the  materials  used. 

22.  The  studies  listed  in  Table  3  are  subdivided  into  two  categories: 
irregular  surface  (wedges)  and  irregular  layers  (step  changes  or  material 
interfaces).  The  data  for  irregular  surfaces  is  compared  in  a  series  of  plots 


16 


Comparison  of  Experimental  Studies  of  Ravleieh  Wave 
Propagation  In  Thin  Plates 
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*  denotes  estimated  values  (no  specified  by  authors) 
**  Used  twelve  different  material;  ranges  given 


shown  in  Figures  4  through  7  along  with  a  f irst-order-theory  approximation 
(Hudson  and  Knopoff  1964).  The  measured  coefficients  for  transmitted  and 
reflected  energy  are  compared  in  Figures  4  and  5,  respectively.  The  phase 
shifts  for  transmitted  and  reflected  Rayleigh  wave  energy  reported  by  Pilant, 
Knopoff,  and  Schwab  (1964)  are  shown  in  Figures  6  and  7  and  compared  with 
first-order  theory  (Hudson  and  Knopoff  1964). 


Figure  3.  Schematic  of  "thin  plate"  test 


23.  The  transmission  coefficients  for  irregular  surfaces  from  the 
four  experimental  studies  are  shown  in  Figure  4.  In  general,  the  measured 
values  are  considerably  different  although  some  general  trends  exist.  The 
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Figure  6.  Results  of  early  experimental  surface  wave  tests  showing  variation 
of  phase  of  Rayleigh  waves  transmitted  past  discontinuitv  in  surface 
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Figure  7.  Results  of  early  experimental  surface  wave  tests  showing  variation 
of  phase  of  Rayleigh  waves  reflected  past  discontinuity  in  surface 


energy  transmitted  fluctuates  considerably  over  the  range  of  surface  angles  of 
0  (free  end)  to  180  degrees  (continuous  horizontal  surface).  For  troughs,  the 
percentage  of  energy  transmitted  ranges  from  2  to  20  at  surface  angles  of  55 
to  60  degrees  and  15  to  50  at  angles  of  110  to  120  degrees  (multiple  of  first 
set) .  Peaks  occur  at  angles  of  75  to  80  with  percentages  ranging  from  50  to 
95  and  somewhere  between  10  and  30  degrees.  The  pattern  of  peaks  and  troughs 
is  relatively  uniform,  changing  about  every  30  degrees  up  to  a  surface  angle 
of  120  degrees. 

24.  The  reflection  coefficients  for  irregular  surfaces  from  the  four 
experimental  studies  are  shown  in  Figure  5.  As  expected,  there  is  a  strong 
correspondence  between  peak  reflection  coefficients  and  trough  transmission 
coefficients  in  Figure  4  (angles  of  about  55  and  100  degrees) .  The  peak 
energy  reflected  ranges  between  35  and  82  percent  at  50  to  60  degrees  and  20 
to  70  percent  at  100  degrees. 

25.  The  phase  relationships  for  transmission  and  reflection  presented 
by  Pilant,  Knopoff,  and  Schwab  (1964)  are  shown  in  Figures  6  and  7.  An 
observation  by  deBremaecker  (1958)  is  also  shown  in  Figure  6.  The 
relationships  for  first-order  theory  by  Hudson  and  Knopoff  (1964)  are  also 
shown.  The  experimental  values  tend  to  show  poor  agreement  with  the  first- 
order  theory  at  surface  angles  less  than  70  to  80  degrees . 

Field  studies 

26.  Field  measurements  focused  on  the  propagation  of  surface  waves 
through  trenches  in  soil  and  rock.  A  few  of  these  studies  include:  Barkan 
(1962),  Dolling  (1965  and  1970),  and  Woods  (1968).  The  effect  of  trench 
dimensions  normalized  to  the  predominant  wavelength,  such  as  trench  width, 
height,  and  length,  were  examined. 

Numerical  and  Theoretical  Approximations 

27.  The  bulk  of  the  studies  that  examine  surface  wave  propagation  in 
complex  geosystems  are  numerical  or  theoretical  approximations.  Numerical 
approximations  include  the  use  of  the  finite  difference  (FD)  method,  the 
finite  element  (FE)  method,  the  boundary  element  (BE)  method,  or  a  combination 
of  these  methods.  Some  of  the  early  studies  used  wavefunction  expansion  to 
define  body  wave  propagation  in  the  media  and  then  tried  to  solve  for  points 
along  the  boundary  (an  early  form  of  BE).  Other  methods  include:  the  ray  path 
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method,  the  Aki-Larner  method,  and  Alsop's  method.  Some  of  these  studies  are 
conveniently  described  and  compared  in  general  and  specific  terms  by  Knopoff 
(1969)  and  Yanovskaya  (1989). 

28.  Theoretical  approximations  to  determine  reflection  and 
transmission  coefficients  of  surface  waves  can  be  categorized  into  three 
groups:  Green's  functions,  vertical  boundary  approximations,  and  superposition 
of  waves.  Nearly  all  of  the  early  studies  used  a  Green's  function  solution 
(GF)  which  is  a  mathematical  formulation  of  the  Huygens -Fresnel  principle. 

Some  assumptions  must  be  used  in  conjunction  with  this  approach  (thereby 
making  it  an  approximation)  because  of  the  unknown  stresses  and  displacements 
in  complex  media.  For  instance,  Hudson  and  Knopoff  (1964)  neglected  the 
reflected  Rayleigh  wave;  Alsop  (1966)  assumed  that  body  waves  generated  by 
surface  waves  impacting  a  surficial  step  change  are  small  compared  to  the 
Rayleigh  waves  and  could  be  neglected.  Several  others  used  this  assumption  to 
examine  surface  wave  propagation  through  media  with  other  geometric  shapes. 

The  number  and  severity  of  assumptions  tended  to  decrease  as  the  studies 
progressed  chronologically. 

29.  The  studies  researched  were  divided  intu  three  categories  for 
convenience.  Studies  examining  the  effects  of  irregular  surfaces  (e.g.,  step 
changes,  vertical  contacts,  and  wedges)  on  Rayleigh  wave  propagation  are 
presented  in  Table  4.  Studies  examining  the  effects  of  canyons  (e.g.,  empty 
and  filled  canyons  with  elliptical,  circular,  and  arbitrary  shapes)  on 
Rayleigh  wave  propagation  are  presented  in  Table  5.  Studies  examining  the 
effects  of  irregular  subsurface  layers  (e.g.,  dipping  layers  and  curved 
contacts)  on  Rayleigh  wave  propagation  are  presented  in  Table  6.  General 
configurations  for  these  categories  are  shown  in  Figure  8.  This  collection  of 
studies  allows  tor  the  analysis  of  most  configurations  of  material  geometry. 
However,  the  loads  considered  by  nearly  all  of  these  studies  are  2-D  (plane 
waves).  The  problem  of  3-D  loads  is  more  difficult  to  solve. 
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Table  4 


Studies  Examining  Rayleigh  Plane  Wave  Propagation 
Through  Irregular  Surfaces  for  2-D  Geometries 


Study 

Case(s) 

Approach 

Kane  &  Spence  (1963) 

Wedge;  wave  from  » 

Iterate  sol'n  at 
boundaries 

Hudson  &  Knopoff  (1964  & 
1967) 

Wedge;  source  at  apex 

GF;  neglected 
reflected  waves 

Mai  &  Knopoff  (1965) 

Step  change 

GF 

Mai  &  Knopoff  (1966) 

Wedge;  wave  from  «• 

GF 

Lopez-Soto  (1967) 

(unknown) 

GF;  with  body  waves 

McGarr  &  Alsop  (1967) 

Step  change 

Discontinuous  layers 

GF;  no  body  waves 
generated 

Gutdeutsch  (1969) 

Wedge ;  source  at  apex 

Empirical  theory 

Waas  (1972a) 

Trench 

FE 

Malischewski  (1974  & 

1976) 

Vertical  contact 

GF;  no  body  waves 
generated 

Its  &  Yanovskaya  (1977  & 
1979' 

Curved  sub -vertical 
interface 

GF 

Segol,  Lee,  &  Abel  (1978) 

Trench 

FE 

Lutikov  (1979) 

Vertical  interface 

GF 

Fujii  et  al  (1980) 

Trench 

FD 

Fuyuki  6t  Matsumoto  (1980) 

Trench 

FD 

Sanchez -Sesma  (1983) 

Ridge 

BE 

Fujii  et  al  (1984) 

Wedge 

FD 

Fuyuki  &  Nakano  (1984) 

Upward  step  change 

FD 

Ohtsuki  &  Yamahara  (1984) 

Wedge;  source  at  » 

FE/FD 

Sanchez -Sesma,  Chavez - 
Perez,  &  Aviles  (1984) 

3-D  sur*-4ce  irreg. 

BE 

Gautesen  (1985) 

Right -angle  wedge 

Numerical  integration 

Sanchez -Sesma,  Bravo,  & 
Herrera  (1985) 

Topographic  irreg. 

BE 

Sanchez -Sesma,  Perez - 
Rocha,  &  Chavez -Perez 
(1985) 

3-D  surface  irreg. 

BE 

Milder  (1991) 

Rough  surface 

Series  of  Helmholtz 
equations 
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Table  5 

Studies  Examining  Ravleigh  Plane  Wave 
Propagation  Through  Canyons 


Study 

Case(s) 

Approach 

Lee  (1978) 

Hemi- spherical  canyon 

WFE 

Bard  &  Bouchon  (1980) 

Bi -dimensional  valleys 

Aki-Larner  method 

Dravinski  (1980) 

Alluvial  valley, 
arbitrary  shape 

(unknown) 

Wong  (1982) 

Semi-elliptical  &  semi¬ 
circular  canyons 

BE 

Lee  &  Langston  (1983) 

3-D  circular  basins* 

Ray  path 

Sanchez-Sesma  (1983) 

3-D  basins 

BE 

Lee  (1984) 

Hemi -spherical  alluvial 
valley 

BE 

Kawase  (1988) 

Semi-circular  canyon 

BE 

Eshraghi  &  Dravinski 
(1989a) 

3-D  canyons 

BE 

Khair,  Datta,  &  Shah 
(1991) 

Cylindrical  alluvial 
valley 

FE/BE 

*  Transient  source 
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Table  6 


Studies  Examining  Ravleigh  Plane  Wave  Propagation 
Through  Dipping  or  Irregular  Lavers 


Study 

Case(s) 

Approach 

Kuo  &  Nafe  (1962) 

Sinusoidal  contact 

Pertubation  of 
boundary  conditions 

Herrera  (1964) 

Non-parallel  layers 

Pertubation  of  GF 

Drake  (1972) 

Continental  boundary 

FE 

Malischewski  (1974) 

Vertical  curved  interface 

Alsop's  method 

Scheidl  &  Ziegler  (1977) 

Rigid  cylindrical 
inclusion 

Fourier  series 

Uberall  (1977) 

Buried  elastic  cylinder 
or  sphere 

Complex  poles 

Lutikov  (1979) 

Oblique  interface 

GF 

Its  &  Yanovskaya  (1983) 

Subsurface  curved  profile 

GF 

Ohtsuki  &  Yamahara  (1984) 

Valley  edge 

FE/FD 

Dravinski  &  Mossessian 
(1987) 

Dipping  layers;  arbitrary 
shape 

BE 

Eshraghi  &  Dravinski 
(1989b) 

Dipping  layers;  arbitrary 
shape 

BE 

Yanovskaya  (1989) 

Dipping  layers  and  curved 
interfaces 

GF 

Li  &  Achenbach  (1991) 

Vertical  interface  zone 
between  two  materials 

BE 

Eshraghi  &  Dravinski 
(1991) 

3-D  dipping  layers 

BE 
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Step  change 


Vertical  contact 


a.  Irregular  surface 


b.  Trenches,  canyons,  or  valley  fill 


Figure  8.  Schematic  drawings  for  classification  of  system  geometry 
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PART  III:  MATHEMATICAL  FORMULATION  AND  COMPUTER  CODE 


Introduction 

30.  The  mathematical  formulation  is  based  on  simple  principles  of 
Elastodynamics ,  superposition,  Fourier  series  expansion,  and  numerical 
discretization  and  solution  procedures  using  the  finite  element  method.  A 
thorough  description  of  the  formulation,  including  computer  implementation,  is 
presented  for  completeness  in  this  part  of  the  report  and  is  supplemented  with 
derivations  in  Appendix  B.  The  set  of  assumptions  is  intended  to  be  small,  to 
broaden  the  class  of  problems  that  can  be  solved.  The  primary  assumption 
required  for  the  condensation  method  described  herein  is  that  the  geometry  oi 
the  system  and  material  properties  are  planar  (do  not  vary  in  some  horizontal 
direction) .  A  number  of  other  assumptions  were  used  to  derive  the  first 
generation  computer  code: 

a.  Media  are  isotropic, 

kj.  Hysteretic  behavior  is  represented  by  complex  moduli  relation, 

£ L.  Source  produces  vertical,  steady-state  excitation  at  one 
frequency , 

d.  Base  is  rigid,  and 

Distribution  of  loads  is  symmetric  about  y-axis. 

These  assumptions  are  not  necessary  and  some  will  be  phased  out  in  future 
versions  of  the  code.  In  addition,  the  computer  code  does  not  allow  for 
transmitting  boundaries  in  the  2-D  analysis  plane.  Rather,  the  domain  must  be 
discretized  to  include  enough  area  for  the  motions  to  attenuate  sufficiently 
before  being  reflected  back  to  the  area  of  interest. 

Field  Equations 

31.  Two  primary  sets  of  variables  adequately  describe  the  effect  of 
forces  acting  on  linear  systems  --  stresses  and  displacements.  These 
variables  exist  in  the  following  field  equations:  stress  equilibrium,  strain- 
displacement,  and  constitutive  equations.  These  three  sets  of  equations  are 
combined  in  terms  of  displacements  to  derive  the  governing  equations  for  the 
problem.  Wave  propagation  involves  the  effects  of  inertia  and  deformation  of 
the  media.  The  effects  of  inertia  result  from  masses  being  accelerated.  The 
derivations  below  apply  to  isotropic  materials. 
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Stress  equilibrium  equations 

32.  The  summation  of  stresses  acting  on  small  rectangular 
parallelepiped  in  three-dimensional  Cartesian  space  x  -  x(x,  y,  z)  and 
Newton's  second  law  of  motion  neglecting  body  forces  are  used  to  derive  the 
stress  equilibrium  equations.  The  equations  of  motion  using  the  soil 
mechanics  convention  of  compressive  forces  as  positive  and  accounting  for  the 
symmetry  of  the  Cauchy  stress  tensor  are: 


do  do  da 

-a?  +  -af  4  ~af 


-pQ 


(1) 


♦ 


-P* 


do  do  do 

+  yz  +  Z-Li* 

dx  dy  dz 


(3) 


where 

a  -  stress  components  [F/L2] 
p  -  mass  density  [F-s2/L] 

'  -  d2  /dx}  [1/s2] 

These  equations  can  be  written  in  a  much  more  compact  form  using  indicial 
notation  as: 


(4) 


Strain-displacement  equations 

33.  The  strain-displacement  equations  (in  some  technical  fields 
referred  to  as  compatibility  equations)  are  derived  from  small  strain  theory. 
The  equations  for  a  displacement  field  u  -  u(u,  v,  w)  are: 


du 

dx 


"22 


dv 

-3P 


dw 

dz 


1  ,  du  .  dv, 

~2  {~dy  ~3x 


(3) 

(6) 

(7) 

(8) 
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(9) 


CJ3 


1 

2 


,  dv  3w, 

{sz  *  sp] 


*11 


1. 

2 


(10) 


and  are  often  referred  to  as  engineering  measures  of  strain.  These  equations 
can  be  written  in  more  compact  form  using  indicial  notation  as: 


eiJ 


1 

2 


<ui.j  +  ui.i> 


(11) 


Constitutive  equations 

34.  The  constitutive  equations  provide  the  means  to  relate  stress  and 
strain;  they  define  the  deformability  of  the  material.  Individual  material 
layers  are  assumed  to  be  homogeneous,  isotropic,  and  visco-elastic.  To  begin 
the  formulation  of  constitutive  relations,  consider  the  simplest  case  of 
linear  elasticity  proposed  by  Hooke.  For  homogeneous  and  isotropic 
conditions,  there  are  two  independent  material  constants  X  and  G  (Lame's 
constants) : 


*  Xm  *  2G  txx 

(12) 

-  Xm  ♦  2G  tyy 

(13) 

•  km  *  2G  e„ 

(14) 

v,2G‘v 

(15) 

•/t  »  2  G  tyt 

(16) 

X.  *  2  G  e„ 

(17) 

where 

G  -  shear  modulus 
«  *  'a  +  ‘ry  +  e«« 

Using  indicial  notation,  these  six  equations  reduce  to: 

*i)  *  2G  (18) 
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where 


eyj  Is  the  indie ial  equivalent  of  e  defined  above 

is  the  Kronecker  delta:  I  8,^-0  if  i#j  1 

I  8tJ-l  if  i-j  I 

The  constitutive  relations  for  linear-elastic  materials  may  also  be  written 

as : 


°U 


tkk  &ij 


+  2G  tXj 


(19) 


where 

v  -  Poisson's  ratio 

35.  Soil  is  an  inelastic  material  --  energy  dissipates  from  friction 
as  waves  travel  through  it.  This  phenomenon  is  called  material  damping  and 
mathematical  models  are  used  to  approximate  it  in  governing  equations.  One 
form  of  damping,  called  hysteretic,  is  frequency  independent.  Clough  and 
Penzien  (1975)  describe  it  as  a  (damping)  force  in  phase  with  the  velocity  but 
proportional  to  the  displacements .  This  form  of  damping  can  be  introduced 
into  the  formulation  for  frequency -domain  analyses  through  the  Correspondence 
Principle  (Wolf  1985)  .  This  principle  states  that  the  elastic  stiffness  (in 
this  case  shear  modulus)  is  replaced  by  a  complex  stiffness  to  obtain  the 
damped  solution.  The  following  relationship  is  commonly  used  to  model  linear - 
hysteretic  behavior  for  small  shear  strains  (and  small  values  of  damping) : 


G*  =  G  ( 1  ♦  2  if)) 


(20) 


where 

G*  is  complex  shear  modulus 
f)  is  the  damping  ratio  [  -  ] 

i  *  yf~l 

For  large  shear  strains  and  values  of  damping,  a  better  approximation  proposed 
by  Udaka  and  Lysmer  (1973)  is: 


G*  -  G  (1  -  202  ♦  2 if)  JT-fi)  (21) 

The  results  of  this  study  are  expected  to  be  applied  at  distances  greater  than 
one  wavelength  from  the  source  (e.g.,  Nazarian  and  Stokoe,  1985a;  Kang,  1990) 
where  shear  strains  are  small  for  synthetic  sources.  Therefore,  Equation  20 
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was  used.  The  magnitude  of  damping  is  considered  to  be  independent  of  strain 
(Hardin  and  Drnevich  1972;  Johnston,  Toksoz ,  and  Timur  1979;  and  Toksoz, 
Johnston,  Timur  1979)  for  the  levels  of  shear  strains  expected. 


Equations  of  Equilibrium 

36.  The  three  sets  of  field  equations  are  combined  to  obtain  the 
governing  equations.  A  stiffness  formulation  was  chosen,  that  is,  a  relation 
in  terms  of  displacemer.  s  (also  referred  to  as  displacement  approach) .  These 
equations  are  associated  with  Navier  and  can  be  derived  by  substituting  the 
strain- displacement  equations  into  the  constitutive  equations,  then, 
substituting  the  resulting  equations  into  the  equilibrium  equations.  Assuming 
that  the  body  forces  are  zero  and  applying  Newton's  second  law,  the  result  is: 

a'(-rk)s  *0-v’u  *  -fa  <22> 

(23) 

(tMh  * v'”  ■  -•>*  <24> 

where 

-  JL  ♦  JL  ♦  JL 

dx2  dy3  dz3 
Using  indicial  notation: 


G’  [( T^v)  *  ui.«]  *  ~PQi  (25) 

These  are  the  partial  differential  equations  that  govern  wave  propagation  in 
three-dimensional  Cartesian  space  for  homogeneous,  isotropic  materials  with  no 
body  forces.  The  partial  differential  equation  is  classified  as  hyperbolic 
leading  to  an  initial  value  problem. 
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Finite  Element  Method  in  Three-Dimensional  Cartesian  Space 


37.  The  finite  element  method  is  a  numerical  analysis  technique  used 
to  approximate  the  response  of  a  continuous  body  by  dividing  the  domain  of 
interest  into  a  discrete  number  of  subdomains.  Boundary  conditions  and 
external  forces  are  imposed  at  discrete  nodes  where  the  displacements  are 
calculated.  Results  can  be  interpolated  at  any  point  in  the  body  through  the 
use  of  interpolation  functions.  In  general,  as  the  subdomains  become  smaller, 
the  solution  converges  to  that  of  the  continuum.  Many  textbooks  describing 
the  finite  element  method  are  available  with  different  sets  of  notation.  The 
notation  used  below  most  closely  follows  that  used  by  Zienkiewicz  and  Tayltr 
(1989)  and  Bathe  (1982)  although  some  minor  additions  and  modifications  have 
been  made . 

38.  There  are  two  basic  approaches  to  formulating  a  problem  using  the 
finite  element  method:  the  (direct)  displacement  method  and  the  variational 
method.  The  displacement  itthod  is  the  most  popular  and  most  easily 
understood  procedure  (7  ^nkiewicz  and  Taylor  1989)  and  was  selected  for  this 
study.  The  displacement  method  can  be  easily  used  with  Fourier  superposition 
analysis  in  the  frequency  domain  for  the  solution  of  elastodynamic  problems. 
Displacement  method 

39 .  Displacements  are  specified  as  the  unknowns  for  the  displacement 
method.  Letting  u  represent  the  vector  of  displacements  (u,  v,  w)  at  any 
point  (x,  y,  z)  and  U  the  vector  of  displacements  at  the  nodes  of  a  finite 
element : 


u  -  K  U  (26) 

where  N  is  the  matrix  of  interpolation  functions.  The  strains  at  any  point 
can  be  represented  as : 


c  «  X  u  (27) 

where  e  is  a  vector  with  six  strain  components: 
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and 


«* 

ey 

*« 

Y*y 

Yy* 


(28) 
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d 

Si 

0 

0 

0 

d 

sp 

0 

0 

0 

a 

Si 

d 

a 

A 

dy 

ax 

VJ 

o 

a_ 

a 

V/ 

dz 

dy 

a 

n 

a 

dz 

u 

dx 

(29) 


Then, 


t*IU~K*U~BU 


(30) 


where  B  is  a  matrix  containing  the  corresponding  derivatives  of  the 
interpolation  functions. 

40.  The  Correspondence  Principal  allows  the  constitutive  model  to 
represent  hysteretic  behavior  using  complex  moduli  for  solutions  in  the 
frequency  domain.  Superposition  is  valid  because  of  this  linear 
representation.  A  frequency  domain  solution  implies  that  the  excitation 
function  must  be  periodic.  Calling  D  the  complex  constitutive  matrix  of  the 
material : 


D 


2G* 
1  -2v 


1-v  v  v  0 

v  1-v  v  0 

v  v  1  -v  0 


0 

0 


0 

0 


0 

0 


1  -2v 
2 

0 


0  0  0  0 


0  0 
0  0 
0  0 

0  0 


l-2v 

2 

0 


0 

1  -2v 
2 


(31) 
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The  stress  vector  at  any  point  is: 


with: 


a  *  D  e 


(32) 


a 


(33) 


41.  Applying  the  principle  of  virtual  work  (for  derivation  refer  to 
Appendix  B)  and  making  use  of  the  above  relations,  the  equations  of  motion 
become : 


M&  +  KU-P  (34) 

where  M  is  the  mass  density  matrix  defined  by: 

M  *  f^p  HTHdv  (35) 


where 

p  -  mass  density 

and  K  is  the  (static)  stiffness  matrix  defined  by: 

K  *  Jv  BTD  B  dv  (36) 

42.  The  relationships  for  nodal  acceleration,  0  ,  and  displacement, 

U  ,  are  derived  by  imposing  the  steady  state  condition.  First  considering  the 
load  vector: 


p  .  p  eiut 


(37) 


where 

p  -  vector  of  amplitudes  of  nodal  forces 
u  -  frequency  of  excitation  (rads/sec) 


Then  the  displacement  vector,  0  ,  can  be  written  as: 


U  =  U  eiwt 


(38) 


where 

0  -  vector  of  amplitudes  of  nodal  displacements 
and  the  velocity  and  acceleration  vectors  are: 


0  =  i  U  eiut  (39) 

0  =  0  ei4>c  (40) 

By  substituting  Equations  38  and  40  into  Equation  34  and  canceling  the 
exponential  term,  the  equations  of  motion  are: 


(X  -  u2  U)  0  =  S  0  =  P  (41) 

where  8  is  the  dynamic  stiffness  matrix  of  the  system  defined  by: 

8  =  X  -  u2  II  (42) 

The  dynamic  stiffness  matrix  is  complex  and  a  function  of  frequency. 

Equation  41  can  be  solved  using  matrix  operations  incorporated  in  various 
solution  algorithms  ("solvers"). 

43.  The  formulation  to  this  point  is  specific  to  steady-state, 
frequency- domain  analyses  for  homogeneous  and  isotropic  materials.  The 
formulation  is  applicable  to  analyses  in  one,  two,  and  three  dimensions  and 
any  element  configuration.  Henceforth,  the  formulation  will  be  specific  to 
the  remaining  assumptions  and  requirements  of  this  study. 

3-D  finite  element 

44.  A  three-dimensional,  isoparametric,  finite  element  with  16  nodes 
was  chosen  to  implement  the  condensation  formulation  described  in  the  next 
section.  A  schematic  of  this  finite  element  are  shown  in  Figure  9.  Each  node 
has  three  degrees  of  freedom.  The  element  has  8  nodes  on  the  two  x-z  planes 
--  one  at  each  corner  and  one  at  the  mid-points  on  the  edges  --  and  six  nodes 
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on  the  x-y  and  y-z  planes.  Therefore,  quadratic  interpolation  exists  in  the 
x-  and  z-directions  (  £  and  £  in  isoparametric  space)  and  linear 

interpolation  exists  in  the  y-direction  (  q  )  .  One  of  the  variables  in  the 
formulation  is  the  discretization  distance  in  the  y-direction  for  the  Fourier 
expansion,  Ay  ,  which  can  be  varied  without  need  to  rediscretize  the 
geosystem. 


Figure  9.  Specialized  16-node  isoparametric  finite  element 


45.  Equations  35  and  36  can  now  be  stated  in  more  specific  terms 
using  the  transformed  space: 


-  ■  my  N  d£dqd£ 


(43) 


K  «  I1/1,/1®1  D  B  iJl  d(dqdC 


(44) 
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where  |  J  |  is  the  determinant  of  the  Jacobian  matrix  for  the  3-D  finite 
element. 

Fourier  superposition 

46.  Fourier  superposition  is  a  three-step  solution  process  for  linear 
systems  that  involves  a  forward  transformation  into  a  wavenumber  domain,  the 
calculation  of  a  solution  to  Equation  41  at  a  number  of  increments,  and  the 
determination  of  the  total  solution  through  an  inverse  transformation  of  all 
incremental  solutions.  A  time-temporal  frequency  transform  pair  of  a  load 
function  p  are: 


p(u)  -  pit)  e~imt  dt 


(45) 


p(t)  =  ~  j*  p(«)  elul  du  (46) 

Similarly,  the  distance -spatial  frequency  (wavenumber)  transform  pair  for 
expansion  in  the  y-direction  are: 

p (m)  «  ply)  e***  d y  (47) 

p(y)  =  J~p(m)  e'imy  dm  (48) 


where 

m  -  wavenumber  (spatial  circular  frequency)  in  y-direction 
Fourier  superposition  applied  in  both  the  time  and  y- spatial  domains  leads  to 


p(m,  w)  =  J  j  p(y,t)  dtdy 


(49) 


p(y.t)  =  f~  f'plm,  w)  e1("t‘"y>  dud m  (50) 

J  --  J  — 

The  corresponding  transformation  equation  for  displacements  is: 

u(y,  t)  «  — ^  [  ~  u(m,  u)  el(ut~wy)  dudm  (51) 

4nZJ  —  j  -■ 
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47.  Making  the  load  vector  specific  to  steady-state  vibrations  with 
constant  amplitude,  the  time -temporal  frequency  transform  pair  reduce  to: 

p(w)  «  p  (52) 

p(t)  »  p  ei-t  (53) 

where  p  is  used  to  represent  amplitude  which  allows  Equations  49  and  50  to 
be  reduced  to: 


p(m)a  *  p  J**  P(y)  ei-y  dy  (54) 

P(y.t)  =  P  /~  P<m)w  e'1**  dm  (55) 

for  a  specific  u.  The  corresponding  equations  for  displacements  are: 

u(m)u  «  u  u(y)  e'*  dy  (56) 


u(y,t)  =  u  —  f  ”  u (m)„  e~imy  dm  (57) 

2  it  J  -• 


Element  condensation 

48.  The  process  of  element  condensation  is  the  key  aspect  of  the 
reduction  of  computational  effort.  Element  condensation  refers  to  the  process 
of  reducing  the  number  of  degrees  of  freedom  by  relating  points  adjacent  in 
the  y-direction  using  the  functional  relationship  of  the  Fourier  expansion. 

The  dependent  degrees  of  freedom  are  then  eliminated  by  expressing  them  in 
terms  of  the  in-plane  degrees  of  freedom.  In  this  case,  the  degrees  of 
freedom  corresponding  to  the  nodes  outside  of  Che  x-z  plane  are  eliminated. 
Each  node  in  the  two-dimensional  mesh  maintains  three  degrees-of-freedom. 

49.  Consider  an  arbitrary  discretized  model  of  a  physical  system  that 
meets  the  requirement  of  uniform  geometry  and  material  properties  in  one 
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direction  such  as  that  shown  in  Figure  10.  The  coordinate  system  is  chosen  to 
have  the  z-direction  positive  down  and  the  other  in-plane  direction  to  be  x. 
Consider  three  vertical  planes  separated  by  a  distance  of  Ay  at  some  arbitrary 
location  along  the  geosystem.  The  3-D  dynamic  stiffness  matrix  for  any 
element  between  the  slices,  such  as  that  shown  in  Figure  11a,  is  calculated 
using  Equations  43,  44,  and  then  42.  The  dynamic  stiffness  matrix  for  a 
single  element  can  be  partitioned  as: 


S,1 

«22 

(58) 


where  the  subscripts  "1"  and  "2"  refer  to  the  degrees  of  freedom  on  the 
positive  and  negative  face  in  the  y-direction,  respectively.  The  assemblage 
of  the  dynamic  equations  for  any  two  finite  elements  adjacent  in  the  y- 
direction,  as  shown  in  Figure  lib,  can  be  reduced  by  canceling  the  time- 
dependent  exponential  term  on  each  side  to: 


B11  s12  0 
a21  s22+aU  SlJ 
0  821  Sjj 


(59) 


where 

"+”  denotes  element  in  positive  y-direction  (from  Ay  to  0) 
denotes  element  in  negative  y-direction  (from  0  to  -Ay) 

"a"  denotes  the  degrees  of  freedom  on  face  a  (i.e.,  at  y-  0) 

"b"  denotes  the  degrees  of  freedom  on  face  b  (i.e.,  at  y-  +Ay) 

"c"  denotes  the  degrees  of  freedom  on  face  c  (i.e.,  at  y-  -Ay) 

50.  Using  the  Fourier  expansion  described  earlier  (Equations  54  and 

56),  forces  and  displacements  are  expressed  as: 


$  (m)  ■=  J  P{y)  e1"*  dy 


(60) 


d  (m)  *=  j"  0(y)  eiav  dy  (61) 

where  §  and  0  are  used  to  represent  vectors  of  nodal  forces  and 
displacements,  respectively,  in  m  space.  Rewriting  Equation  59  to  incorporate 
the  Fourier  expansion  of  loads: 
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Faceb 


Figure  10.  Example  of  a  physical  system  for  purposes  of 
extracting  a  slice  of  finite  elements 


®n  ®ia  0 
®ai  Saa-*-®!!  ®ia 
0  8ji  ®aa 

In  the  transform  (m)  space,  the  displacements  on  the  "b"  and  "c"  faces  are 
related  to  the  displacements  on  the  "a"  face  at  any  instant  in  time  by  the 
simple  relationships: 


ftb(m) 

ft.(m) 

'  =  1 

$.(m) 

&c(m) 

(62) 


6*  (m)  -  U.(m)  e 


(63) 


(m)  =  U.(m) 


(64) 


Defining: 


•  On)  «  sai  e'^v  ♦  <  s^  ♦  s„  )  +  sia  (65) 

Equations  63  and  64  can  be  substituted  into  Equation  62  to  get  the  system  of 
equations  for  the  equivalent  two-dimensional  system  shown  in  Figure  11c: 


»(m)  ©.On)  »  fr.(rn)  (66) 

This  formulation,  then,  allows  the  three-dimensional  element  with  a  two- 
dimensional  geometry  to  be  represented  with  an  equivalent  two-dimensional 
element.  The  representation  of  surface  loads  are  described  below. 

Surface  loads 

51.  This  study  focuses  on  the  preparation  for  analysis  of  waves 
propagating  from  a  synthetic,  3-D  source.  Vibroseis  trucks  generally  use  a 
rectangular  platen  with  plan  dimensions  on  the  order  of  1  by  2  m  (  3  by  7  ft) . 
At  large  distances  from  the  source  and  with  large  wavelengths,  this  area 
approaches  a  point  source.  Therefore,  the  horizontal  distributions  of  the 
load  considered  for  this  study  were  a  point  load  and  a  rectangular  load  of 
various  sizes.  A  point  source  is  not  a  physical  reality  and  is  difficult  to 
replicate  with  finite  elements.  Kang  (1990)  used  a  point  load  and  circular 
load  as  these  were  appropriate  vibration  source  for  pavement  systems . 


44 


52.  The  formulation  for  equivalent  nodal  forces  in  the  x-direction 
for  point  and  rectangular  loads  are  described  below.  The  application  of  a 
point  source  in  the  finite  element  method  is  trivial.  The  formulation  of 
equivalent  nodal  forces  for  rectangular  loads  involves  integration  of  the 
force  distribution  in  light  of  the  interpolation  function: 


P  «  p  dx  (67) 

For  the  endpoints  of  the  8-noded,  2-D  element  where  z  -  0  (nodes  1  and  6), 
this  reduces  to: 


where  the  subscript  for  P  refers  to  the  node  number  and: 

lx  “  right -most  extent  of  load  in  isoparametric  space 
ii  -  left-most  extent  of  load  in  isoparametric  space 

and 


(68) 


P.  " 


For  the  midpoints  of  the  8-noded  element,  this  reduces  to: 


(69) 


(70) 


The  distribution  of  forces  applied  to  the  platen  is  assumed  to  be  uniform  and 
therefore  the  integration  reduces  to  simple  algebra.  For  example,  a 
continuous,  uniform  load  with  a  total  magnitude  of  unity  (p  •  Ax  -  1),  the 
equivalent  nodal  forces  are  1/6  for  the  endpoints  and  4/6  for  the  midpoint. 

53.  The  process  of  converting  loads  from  the  time -spatial  domain  to 
the  frequency -wavenumber  domain  is  depicted  in  Figures  12  through  14.  In 
Figure  12a,  an  arbitrary  rectangular  pressure  is  applied  vertically  at  the 
ground  surface.  The  distribution  in  the  x-  and  y-directions  are  shown  in 
Figures  12b  and  12c,  respectively.  The  distribution  in  the  y- direction  is 
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Figure  12.  Distribution  of  arbitrary  rectangular  pressure 
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Figure  13.  Distributions  of  nodal  forces  resulting  from 
arbitrary  rectangular  pressure 
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Figure  14.  Distributions  of  Fourier  expansion  of  loads  resulting 
from  arbitrary  rectangular  pressure 


assumed  to  be  symmetric  to  reduce  the  number  of  operations  by  nearly  a  factor 
of  two.  The  equivalent  nodal  forces  in  the  finite  elements  on  the  x-z  plane 
are  shown  in  Figure  13.  After  the  Fourier  transformation  in  the  y-direction, 
the  distribution  of  forces  in  the  x-m  space  is  shown  in  Figure  14. 

Time -dependent  displacements 

54.  The  real -valued,  time -dependent  displacements  may  be  obtained 
from  the  calculated  complex  displacements,  U.  If  the  forcing  function  is  of 
the  form  sin  «t,  then: 


ut  =  AtSlN(ut)  +  BjCOS  (« t)  (71) 

If  the  forcing  function  is  of  the  form  cos  wt,  then: 

u1«AiCOS(ut)  -  BjSINCut)  (72) 


where 

-  real  part  of  complex  displacement  amplitude  at  node  i 

-  imaginary  part  of  complex  displacement  amplitude  at  node  i 
For  the  analysis  of  the  vibrations  produced  by  a  Vibroseis,  Equation  72  is 
more  appropriate.  The  phase  angle  of  motion,  4  .  is  calculated  by: 

♦  -  (|j)  (73) 

Computer  Implementation 

55.  The  system  of  computer  programs  written  for  the  solution  of  the 
dynamic  displacements  in  planar  geosystems  includes  (pre -processing)  mesh 
generation  and  visualization  routines,  the  primary  finite  element  code,  and 
visualization  (post-processing)  routines  to  analyze  the  results.  Computer 
cooes  were  written  using  the  Fortran  77  and  C  computer  languages  running  on 
the  U.S.  Army  CRAY  Y-MP  supercomputer  and  Silicon  Graphics  workstations 
supported  at  WES.  A  listing  of  FORTRAN  computer  code  vib3  is  contained  in 
Appendix  C.  A  sample  input  and  corresponding  output  file  are  provided  in 
Appendices  D  and  E,  respectively.  Basics  of  the  implementation  in  the  primary 
computer  code,  vib3 ,  are  presented  below. 
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Computer  code  vib3 

56.  The  function  of  vib3  is  to  read  in  the  parameters  defining  the 
mesh,  material  properties,  load,  and  Fourier  expansion  parameters  and  solve 
for  the  corresponding  complex  displacements.  This  program  evolved  from  an 
unnamed  finite  element  code  used  for  instructional  purposes  in  a  graduate 
engineering  course  entitled  "The  Finite  Element  Method"  taught  by 

Prof.  John  Tassoulas  in  1988  at  the  University  of  Texas  at  Austin.  The  basic 
framework  of  variable  storage  in  a  massive  single-scripted  array  and  solution 
using  a  frontal  solver  were  kept  as  well  as  a  subroutine  to  modify  element 
stiffness  for  boundary  conditions.  The  remainder  of  the  subroutines  were 
written  specifically  for  this  study. 

57.  The  interaction  of  subroutines  in  vib3  is  represented  using  the 
flowchart  presented  in  Figure  15.  The  subroutines  are  called  consecutively 
from  the  MAIN  program.  MAIN  contains  one  DO  LOOP  to  allow  for  the  analysis  of 
multiple  frequencies  and  a  DO  LOOP  that  creates  the  matrices  and  solves  for 
displacements  at  each  increment  of  m.  General  descriptions  of  each  of  the 
subroutines  listed  are  provided  below. 

Input  of  mesh  and  problem  parameters 

58.  The  subroutines  MAIN,  DATAIN,  and  ELP3D  read  information  from  the 
input  file  regarding  system  geometry,  boundary  conditions,  material 
properties,  Fourier  expansion,  and  code  operation  (input/output).  At  first, 
MAIN  is  used  to  read  a  problem  title  and  basic  variables  that  affect  the 
allocation  of  array  space  and  define  the  scope  of  calculations.  Once  the  key 
parameters  have  been  read  and  the  array  lengths  are  established,  the  allocated 
program  memorv  for  the  real  and  complex  arrays  are  checked  prior  to  execution. 
Then,  subroutine  DATAIN  is  used  to  read  the  2-D  nodal  coordinates  (the  third 
dimension,  Ay,  is  constant)  and  boundary  conditions,  the  nodes  of  primary 
interest  for  analysis,  and  the  element  connectivities  and  material 
correspondence.  Boundary  conditions  in  the  x-  and  z- directions  are  specified 
in  the  input  file.  Subroutine  ELP3D  is  used  to  read  the  material  properties 
of  each  of  the  materials  designated  and  calculate  the  components  of  the 
constitutive  matrix  (Equation  31). 

vectpf 

59.  Subroutines  YLOA D  and  XLOAD  are  used  to  define  the  extent  of  the 
load  distribution  and  create  the  load  vector,  P  The  option  for  either  a 
point  load  or  a  rectangular  load  exists.  The  magnitude  of  the  load  is  an 
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input  value  and  is  assumed  to  be  constant  over  the  specified  area  and 
symmetric  about  the  x-z  plane  (y  -  0  axis).  This  assumption  reduces  the  time 
to  solution  by  a  factor  of  two  by  taking  the  solution  of  displacements  in  the 
+m  direction  and  mirroring  them  in  the  -m  direction  in  the  wavenumber  space. 

60.  The  subroutine  YLOAD  is  called  first  because  these  operations  are 
independent  of  most  other  operations  and  must  be  done  before  the  Fourier 
expansion.  This  subroutine  reads  the  magnitude  of  the  load  and  horizontal 
extent  from  the  point  y  -  0.  The  distribution  is  stored  in  terms  of  a 
discretized  set  --a  single  value  of  magnitude  at  each  Ay  within  the  extent  of 
the  load  distribution.  This  set  is  used  directly  by  the  Fourier  transform 
algorithm  described  later.  Next,  the  subroutine  XLOAD  calculates  the  vertical 
nodal  forces  using  Equations  68  through  70.  The  extent  of  the  load  is 
specified  by  the  smallest  and  largest  values  of  x.  Algorithms  determine  the 
affected  elements  and  nodes. 

61.  An  option  to  use  normalized  loads  is  available  which  is  valuable 
for  validation  study  and  parametric  analysis.  Comparisons  between  results 
from  different  load  geometries  and  configurations  are  aided  by  normalizing  the 
load  thus  producing  the  magnitudes  of  displacements  that  are  independent  of 
the  distribution  of  the  load.  Normalization  refers  to  producing  a  total  lead 
(pressure  times  uniformly  loaded  area)  of  unity.  This  option  is  enacted  by 
two  steps: 

a .  Specifying  a  magnitude  of  load  that  equals  the  inverse  of  the 
width  of  the  load  in  the  x-direction,  and 

b .  Using  a  single  FORTRAN  statement  in  subroutine  YLOAD  that 
divides  the  magnitude  by  the  number  of  non-zero  pre-expansion 
terms  in  the  y-direction. 

The  statement  in  subroutine  YLOAD  is  included  in  the  computer  code  but  must  be 
switched  on  and  off  manually  through  the  use  of  a  FORTRAN  comment  statement. 
Fourier  expansion 

62.  A  Fourier  expansion  of  the  distribution  of  load  in  the 
y-direction  follows  the  specification  of  the  load  parameters  in  subroutine 
YLOAD.  The  inverse  transformation  of  displacements  to  the  spatial  domain  is 
conducted  after  the  solution  process  is  completed  for  each  value  of  m.  The 
3-D  load  vector  is  created  after  the  forward  transform  by  multiplying  the 
equivalent  nodal  forces  (from  XLOAD)  and  the  m- independent ,  complex  transform 
(from  YLOAD  and  F0UR2).  This  vector  is  dependent  on  the  value  of  m  so  this 
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operation  is  performed  within  the  DO  LOOP  on  m.  The  multiplication  of  these 
values  creates  a  load  distribution  that  can  be  visualized  by  looking  at 
Figure  14.  Nodal  forces  on  elements  outside  the  extent  of  the  load  are  zero. 

63.  The  Fourier  transformations  are  performed  using  the  Fast  Fourier 
Transform  (FFT)  algorithm  proposed  by  Cooley  and  Tukey  (1965)  in  the 
subroutine  F0UR2  and  other  dependent  subroutines  established  in  the  1970 's  at 
the  Massachusetts  Institute  of  Technology.  The  discrete  values  of  the 
transform  are: 


PfmJ  'Ay  T  p(y3)e  M  (74) 

3*0 

where 

n  -  0,  1,  2 . N-l 

and: 

p(yj)  (75) 

**  n*0 

where 

j  -  0,  1,  2,  ....  N-l 

and 


N  -  number  of  sampling  points  (power  of  2) 

Yj  “  j  ^y 
YTOT  -  N  Ay 
m,,  -  nAm 
Am  -  2 it /YTOT 

Element  stiffness 

64.  The  finite  element  stiffness  and  mass  matrix  are  created  through 
the  use  of  subroutines  DNXS016Y  and  STIFF.  Subroutine  STIFF  calls  subroutines 
IS016 ,  MODIF,  and  CONDENSE.  Subroutine  DNIS016Y  is  used  to  calculate  the 
interpolation  functions  and  their  derivatives  at  each  of  the  integration 
points.  Since  the  same  finite  element  is  used  throughout  and  these  values  are 
independent  of  Cartesian  coordinates,  this  routine  is  called  once.  Subroutine 
STIFF  collects  the  nodal  coordinates,  constitutive  matrix,  and  other 
parameters  for  the  element  being  considered  and  calls  the  subroutine  IS016  to 
perform  the  numerical  integration  and  convert  the  static  stiffness  matrix  into 


a  dynamic  stiffness  matrix.  Subroutine  MODIF  is  called  by  STIFF  to  modify  the 
stiffness  matrix  and  load  vector  in  the  case  of  rigid  boundary  conditions. 

65.  A  numerical  integration  technique  is  used  to  calculate  the  3-D 
dynamic  stiffness  matrix  for  each  finite  element.  This  technique  begins  with 
a  transformation  of  the  spatial  coordinates  from  Cartesian  space 

x-f  (x,  y,  z)  to  a  normalized  coordinate  system  jc  -  f  (  \  ,  q  ,  (  ) 

centered  within  the  range  of  integration  (refer  to  Figure  9).  Integrals  are 
replaced  by  summations  computed  at  specific  (integration)  points  and  are 
scaled  by  appropriate  weighting  factors.  Equations  43  and  44  used  to 
calculate  mass  and  stiffness  are  rewritten  as: 

*  =  £  £  £  (H’  M|J|)ijk  (76; 

i  3  k 

3  2  3 

i  D  k 

66.  Eighteen  integration  points  were  used  to  derive  the  element 
stiffness.  The  exact  location  of  these  points  are  defined  by  coordinates  of  0 
and  +  /3V  in  the  x-  and  z -directions  and  with  ±  1  /  J5  for  the 
y-direction.  The  weighting  factors  are  8/9  for  the  midpoint,  5/9  for  the 
endpoints,  and  1  for  the  y-direction  (Stroud  and  Secrest  1966). 

Sondeng.gtipn 

67.  The  3-D  dynamic  stiffness  matrix  and  load  vector  for  the  element 
are  condensed  to  the  equivalent  2-D  matrix  and  vector,  respectively,  using 
Equation  65  as  coded  in  subroutine  CONDENSE.  The  size  of  the  stiffness  matrix 
changes  from  48  by  48  components  to  24  by  24;  the  load  vector  changes  from 

48  by  3  to  24  by  3.  After  CONDENSE,  these  element-dependent  components  are 
transferred  to  the  solver. 

frpptnl  ..sflAver 

68.  The  solution  algorithm  used  is  called  a  frontal  solver.  This 
process  involves  gathering  the  dependent  equations  necessary  to  determine  the 
value  of  a  particular  degree  of  freedom.  A  detailed  presentation  of  frontal 
solvers  for  positive -definite  matrices  was  made  by  Irons  (1970). 

69.  The  solver  used  for  this  study,  SOLVE,  was  created  and  refined 
over  several  years  through  the  efforts  of  Profs.  C.  P.  Johnson  and 

Eric  B.  Becker  at  the  University  of  Texas  at  Austin.  This  solver  can 


54 


accommodate  symmetric  and  non- symmetric  matrices  although  the  option  for  non- 
syrametric  matrices  is  not  necessary  when  using  the  displacement-based  approach 
with  elastic  materials.  The  UT  solver  was  modified  slightly  to  allow  for  the 
solution  of  matrices  with  complex-valued  components. 

Other. -subro-ut-ines 

70.  Other  subroutines  were  written  to  perform  various  systematic 
operations  that  ensured  conformity  and  print  portions  of  stiffness  matrices 
and  load  vectors.  The  subroutine  SYMSM  is  used  to  check  the  symmetry  of  the 
stiffness  matrix  at  any  stage  of  the  calculation  and  is  a  useful  tool  for 
recognizing  and  debugging  errors  in  parameters  defining  the  mesh.  A  symmetry 
tolerance  is  specified  in  the  input  file.  The  subroutines  PRNTRHS  and  PRNTSM 
allow  the  load  vector  and  stiffness  matrix,  respectively,  for  any  element  and 
"m"  step  to  be  saved. 

71.  Symmetric  problems  (in  the  x-direction)  may  be  solved  with  the 
present  formulation  to  reduce  the  computation  time  by  greater  than  a  factor  of 
two.  The  boundary  conditions  along  the  line  of  symmetry  should  be  fixed  in 
the  x-direction  (IBC-1)  and  free  in  the  z-direction.  The  load  width  is  now 
the  half -width  with  the  same  magnitude  (unless  a  normalized  load  is  used  in 
which  case  the  magnitude  equals  the  inverse  of  the  half -width) .  No  other 
special  considerations  are  required.  Symmetric  problems  were  considered  for 
validation  and  parametric  analyses  as  described  in  the  next  two  parts  of  this 
report. 
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PART  IV:  VALIDATION  STUDIES 


General 

72.  Validation  studies  and  parametric  analyses  were  used  to  prove 
that  the  formulation  and  computer  implementation  are  sound,  accurate,  and 
stable  for  the  limited  problem  class  to  which  accurate  solutions  are 
available.  The  findings  of  validation  studies  are  not  mutually  exclusive  from 
the  parametric  analyses  because  the  definition  of  the  problems  for  validation 
should  conform  somewhat  to  the  findings  of  parametric  analyses.  The  results 
of  the  validation  studies  are  described  below;  the  parametric  analyses  are 
described  separately  in  Part  V. 

73.  The  best  form  of  validation  consists  of  comparing  the  results 
between  a  subject  program  and  exact  mathematical  relationships  for  several 
different  problems.  Comparisons  with  measured  data  or  prototype  testing 
provide  a  constructive  means  to  confirm  findings  when  conducted  under  certain 
controlled  conditions.  These  comparisons  are  not  appropriate  as  the  primary 
means  of  validation,  however.  Comparisons  with  other  numerical  approximations 
are  even  less  appropriate  for  validation.  Validation  of  vib3  through 
comparisons  with  analytical  results  is  possible  only  for  the  simplest  class  of 
planar  geometry  --a  horizontally  layered  system  extending  to  infinity. 

Green's  function  solutions  formulated  for  axi -symmetric  problems  by  Kausel 
(1981)  were  used  exclusively.  Some  minor  differences  in  displacements  may 
exist  between  the  Green's  function  solutions  and  the  2-D  approximations 
because  the  shape  of  the  load  is  different  --  disk  loads  were  used  for  the 
axi -symmetric  problem  and  square  loads  were  used  for  this  study.  The  same 
total  area  and  total  load  of  unity  were  used  to  minimize  these  differences. 

The  model  systems  used  to  validate  the  computer  code  are  described  in  the  next 
section. 

74.  The  validation  studies  described  in  this  part  pertain  to 
variations  in  system  geometry,  material  properties,  and  frequency  of 
excitation.  The  dynamic  vertical  displacements  are  of  primary  interest 
because  they  predominate  in  surface  motions  caused  by  vertical  excitations. 
Moreover,  vertical  vibrations  are  normally  measured  in  non- destructive  tetting 
techniques  such  us  the  SASW  method.  Measurements  are  likely  to  be  made  both 
perpendicular  and  parallel  to  the  structure  of  the  system  (x-  and 
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y-directions ,  respectively).  Therefore,  the  results  are  presented  in  terms  of 
the  variations  of  real  and  imaginary  components  of  dynamic  displacement  in 
both  the  x-direction  (calculated  at  nodes  on  the  y  -  0  plane)  and  the  y- 
direction  (calculated  at  node  beneath  the  centroid  of  the  load  and  expanded 
out  in  the  y-direction) .  Most  comparisons  are  made  at  the  free  (ground) 
surface  although  a  few  comparisons  are  also  made  below  the  surface.  Distances 
are  normalized  to  the  wavelength  of  Rayleigh  waves,  X  ,  for  Model  1.  (Note 
that  the  definition  for  the  Greek  letter  X  has  changed  from  that  used 
previously.)  The  displacements  are  oriented  positive-down  to  be  consistent 
with  the  convention  used  in  the  formulation  and  correspond  to  the  top  surface 
(z  -  0). 


Test  Models  and  Discretization  Schemes 

75.  Four  hypothetical  models  were  created  for  validation  studies  and 
are  shown  with  unit- less  dimensions  in  Figure  16.  These  models  were  designed 
to  represent  ideal  site  conditions  of  horizontally  layered  soil  overlying  rock 
and  realistic  material  properties  (considering  units  of  ft-lb-sec)  while 
conforming  to  limitations  of  the  analytical  solutions.  All  models  have  the 
same  total  height  (1000  units)  and  are  assumed  to  overlay  a  rigid  material. 
Model  1  is  the  simplest  system  --a  homogeneous  medium  overlying  rock.  The 
range  of  material  properties  for  this  medium  used  in  the  following  comparisons 
are  shown  in  Figure  16.  The  other  three  models  consist  of  four  homogeneous 
layers  overlying  rock  with  different  combinations  of  stiffness. 

76.  A  domain  with  dimensions  1000  units  high  and  2500  units  wide  was 
chosen,  along  with  the  material  properties  and  frequency  of  excitation,  to  be 
large  enough  to  ignore  the  effects  of  reflections  and  correspond  to  about  3X 
high  by  8X  wide.  Three  different  finite  element  meshes  were  created  to 
represent  this  domain  and  are  shown  in  Figure  17 .  The  domain  was  discretized 
using  4  by  10,  8  by  20,  and  16  by  40  square  elements.  The  size  of  these 
elements  corresponds  to  0.8X,  0.4X,  and  0.2X,  respectively.  A  plane  of 
symmetry  at  the  left  boundary,  defined  by  x  -  0,  was  utilized  to  reduce  the 
degrees  of  freedom  by  nearly  one -half. 
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MODEL  1: 


free 

boundary 


a.  Coarse  mesh  with  4  by  10  elements 


b.  Median  mesh  with  8  by  20  elements 


c.  Fine  mesh  with  16  by  40  elements 


Figure  17.  Discretized  models  used  for  validation 
studies  and  parametric  analyses 
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Analytical  Solutions 


77.  The  Green's  function  solutions  formulated  by  Kausel  (1981)  were 

calculated  with  the  computer  code  PUNCH  (Kausel  1989)  using  a  personal 
computer.  The  calculated  solution  approaches  the  exact  solution  as  the  number 
of  layers  increases.  The  displacements  calculated  using  PUNCH  correspond  to  a 
disk  load  with  radius  r  and  total  load,  P,  of  1  (  «  pxr2  )  or  a  point  load 

with  magnitude  of  unity.  The  only  limitation  of  PUNCH  that  impacted  the 
analysis  is  that  a  maximum  of  30  layers  can  be  used.  The  effect  of  this 
limitation  was  examined  using  Model  1  and  is  reported  below  using  a  frequency 
of  excitation  of  3  Hz,  system  damping  of  2  percent,  and  a  radius  of  load  of 
5.64  (total  area  of  100). 

78.  The  effect  of  the  number  of  layers  on  Kausel 's  solution  for 
Model  1  was  evaluated  using  four  different  layered  systems  (4,  8,  16,  and  24 
layers).  The  variation  of  the  real  and  imaginary  components  of  the  complex 
dynamic  displacement  (refer  to  Equations  71  and  72)  with  (horizontal)  distance 
(in  this  case  radial)  from  the  center  of  the  load  are  shown  in  Figure  18  for 
these  four  cases.  The  maximum  horizontal  distance  considered,  51,  corresponds 
to  about  1500  units.  The  results  plotted  in  Figure  18  indicate  that  the 
number  of  layers  can  have  a  significant  impact  on  the  amplitude  of  both 
components.  As  the  number  of  layers  increases  and  displacements  approach  the 
true  solution,  the  amplitudes  increase.  The  peaks  also  tend  to  occur  closer 
together  as  the  true  solution  is  approached. 

79.  The  results  have  not  completely  converged  with  24  layers,  but  the 
changes  from  16  to  24  layers  are  small,  especially  at  distances  less  than 
about  41.  It  appears  that  24  layers  is  an  adequate  number  to  represent  this 
system  with  the  realization  that  the  exact  solution  is  likely  to  have  slightly 
larger  displacements  at  the  peaks  and  possibly  a  more  compact  waveform. 

Twenty- five  layers  were  used  to  represent  Model  1  for  further  comparisons  and 
validation  to  provide  a  uniform  thickness  of  40  units  for  each  layer. 

80.  The  effect  of  the  radius  of  the  load,  r,  was  also  examined  while 
keeping  the  total  load  equal  to  unity.  A  point  load  and  a  distributed  load 
with  normalized  radii  of  0.0361,  0.0721,  and  0.1441  (areas  of  400,  1,600,  and 
6,400,  respectively)  were  used  and  the  results  are  shown  in  Figure  19.  The 
dynamic  displacements  are  nearly  equivalent  for  the  four  cases .  Perceptible 
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/  =  3.0  Hz 
/?  =  0.02 


A  =  313. 

Radius/A  =  0.018 


Figure  18.  Comparison  of  dynamic  displacements  from  Green's 
function  solutions  for  various  numbers  of  layers 
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HORIZONTAL  DISTANCE  (in  X  ) 


Figure  19.  Comparison  of  dynamic  displacements  from  Green's 
function  solutions  for  various  radii  of  loads 


differences  exist  only  for  data  corresponding  to  the  largest  radius, 
r  -  0.1441, .  Therefore,  it  is  safe  to  conclude  that  the  radius  of  the  load  has 
little  effect  on  the  dynamic  displacements  normalized  to  the  total  load  for 
ratios  of  r  <  0.101.  A  radius  of  loading  equal  to  0.0181  was  used  for  the 
remaining  comparisons  which  essentially  represents  a  point  load. 

81.  The  effects  of  varying  Poisson's  ratio  and  the  damping  ratio  on 
the  dynamic  vertical  displacement  were  examined  using  Model  1  to  facilitate 
some  of  the  comparisons  made  later  for  parametric  analyses.  The  effect  of 
varying  Poisson's  ratio  from  0.33  to  0.49  is  shown  in  Figure  20.  The  general 
trend  of  the  three  relationships  is  that  the  peak  values  of  displacement 
decrease  and  the  distances  between  peak  values  increase  as  Poisson’s  ratio 
increases.  The  effect  of  varying  damping  ratio  from  0.02  to  0.15  is  shown  in 
Figure  21.  The  general  trend  of  the  four  relationships  is  that  the  peak 
values  of  displacement  decrease  as  damping  ratio  increases;  there  is  little 
change  in  the  radial  distance  at  which  the  peak  values  of  real  and  imaginary 
parts  occur. 

82.  The  comparisons  shown  in  Figures  20  and  21  bring  about  an 
important  consideration  for  geosystems  --  Poisson's  ratio  and  damping  ratio 
are  two  material  properties  that  are  difficult  to  determine  for  soils. 
Oftentimes,  these  two  properties  are  estimated  using  empirical  relations  or 
data  bases  of  measured  values.  Estimated  values  may  possibly  be  different 
from  true  values  which  is  a  potential  source  of  error.  Errors  in  estimating  v 
and  damping  ratio  can  be  significant  for  reasonable  ranges  of  these 
properties.  Variations  in  v  affect  both  the  amplitude  and  location  of  peak 
amplitudes  of  the  real  part  whereas  variations  in  damping  ratio  affect 
primarily  the  amplitude. 

Element  Performance  to  Static  Loads 

83.  The  specialized  3-D  finite  element  was  evaluated  for  the  ability 
to  represent  static  response  to  various  loads.  This  evaluation  was 
accomplished  by  comparing  the  results  of  two  approaches  with  analytical 
solutions.  One  approach  was  to  place  the  algorithms  defining  the  element 
stiffness  into  a  static  finite  element  computer  code  and  examine  the  response 
of  a  cantilever  beam.  The  other  approach  was  to  use  vib3  with  a  point  load 
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/  =  3.0  Hz 
(3  =  0.02 


X  =  313. 

Radius/X  =  0.018 


Figure  20.  Comparison  of  dynamic  displacements  from  Green's 
function  solutions  for  various  Poisson's  ratios 
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acting  on  a  homogeneous  body  with  the  frequency  equal  to  0.  Each  of  these  are 
described  below. 

Static  finite  element  code 

84.  4  static  finite  element  code  was  used  to  evaluate  the  specialized 
finite  element.  This  program  evolved  from  an  unnamed  finite  element  code  used 
for  instructional  purposes  in  a  graduate  engineering  course  entitled  "The 
Finite  Element  Method"  taught  by  Prof.  John  Tassoulas  in  1988  at  the 
University  of  Texas  at  Austin.  A  cantilever  beam  was  discretized  with  2,  5, 

10,  40,  and  80  elements  and  subjected  to  tension,  compression,  and  shear- 
induced  bending  loads.  The  effect  of  element  shape  was  also  evaluated  by 
considering  square,  rectangular,  parallelogram,  and  trapezoidal 
configurations.  Comparisons  between  calculated  and  closed-form  solutions  for 
displacements  and  stresses  were  good  and  indicate  that  the  algorithms  defining 
the  element  stiffness  are  accurate  for  conditions  of  static  loading. 

Dynamic  code 

85.  The  static  vertical  displacements  calculated  using  vib3  with 
Model  1  at  depths  of  0,  125,  250,  and  500  units  (0.0A.,  0.40X,  0.80X,  and  1.61, 
respectively)  are  shown  in  Figures  22  through  25  using  the  finest  of  the  three 
meshes.  The  comparisons  with  Green's  function  solutions  in  the  y-direction 
are  excellent  for  the  real  part  and  very  good  for  the  imaginary  part  at 
distances  slightly  removed  from  the  point  of  load  (greater  than  100  units). 
Comparisons  are  similar  at  all  depths.  The  imaginary  part  should  be  zero  at 
all  distances  but  vib3  produces  non-zero  values  at  locations  close  to  the 
load.  The  less  favorable  comparisons  near  the  point  of  loading  are  common 
when  modeling  a  point  load  using  the  finite  element  method.  These  errors  are 
normally  minimized  through  mesh  refinement  near  the  point  of  loading  but 
accuracy  close  to  the  source  is  not  of  interest  for  this  study.  The  variation 
of  vertical  displacements  in  the  x-direction  calculated  using  vib3  represent 
the  exact  same  relationship  as  the  variation  of  vertical  displacements  in  the 
y-direction  at  all  depths  except  z  -  0.  The  real  part  at  distances  less  than 
150  units  oscillates  considerably  about  the  other  solutions. 

Approximations  for  Dynamic  Loads 

86.  The  computer  code  vib3  was  used  to  calculate  dynamic 
displacements  for  each  of  the  four  models  described  previously.  These  results 
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were  then  compared  with  the  Green's  function  solutions  presented  in  the 
previous  section.  All  four  models  were  discretized  using  the  finest  mesh.  A 
square  load  with  plan  dimensions  of  5  by  5  centered  about  the  origin  with  a 
total  load  of  1  applied  at  a  frequency  of  3  Hz.  Th^  wavelength  for 
Rayleigh  waves  is  then  about  313  and  the  dimension  of  the  square  elements  are 
62.5  units  or  about  0.21.  The  material  properties  are  listed  in  Figure  16. 

87.  The  parameters  defining  the  condensation  and  Fourier  expansion 
for  the  validation  were  selected  based  on  the  findings  of  Kang  (1990).  Values 
of  Ay  -  0.051  and  the  number  of  Fourier  discretization  points,  NM,  equal  to 
256  were  fixed  for  the  comparisons  and  the  finest  finite  element  mesh  was  used 
unless  otherwise  specified.  This  provided  for  a  discretized  extent  (in  the 
y-direction)  of  -131  (t  6.41),  slightly  less  than  the  total  extent  discretized 
in  the  x-direction  (±  81).  Displacements  at  distances  up  to  51,  or  about  1500 
units,  are  used  for  comparison  because  the  amplitudes  are  rather  small  beyond 
this  distance. 

Model  1;  Homogeneous  system 

88.  The  results  for  Model  1  at  z  -  0  and  z  —  0.401  (125  units)  are 
shown  in  Figures  26  and  27,  respectively,  and  compared  with  the  Green's 
function  solutions.  The  variation  of  the  real  part  of  the  complex 
displacements  in  the  y-direction  compares  favorably  to  the  Green's  function 
solution.  The  variation  of  the  imaginary  part  in  the  y-direction  closely 
follows  the  Green's  function  solutions.  Both  parts  of  the  calculated 
solutions  compare  more  favorably  at  distances  less  than  31,  about  half  the 
distance  expanded  in  the  y-direction.  The  comparisons  are  also  slightly 
better  at  z  -  0.41  as  compared  to  z  -  0.  The  variation  of  vertical 
displacements  in  the  x-direction  at  z  -  0  and  z  -  0.401  generally  compare 
favorably.  These  displacements  differ  somewhat  from  the  variation  in  the 
y-direction  with  the  imaginary  part  deviating  more. 

89.  The  effects  of  varying  Poisson’s  ratio  and  damping  ratio  on  the 
displacements  for  Model  1  were  also  examined  and  the  results  are  shown  in 
Figures  28  and  29,  respectively.  A  comparison  between  the  calculated  and  tl.e 
Green's  function  solutions  in  Figure  20  for  variations  in  v  indicates  that  the 
2-D  approximation  provides  a  reasonable  means  of  representing  different  v. 

The  best  comparison  is  for  v  -  0.40  and  the  poorest  comparison  is  for 

v  -  0.49.  Generally,  the  imaginary  part  compares  well  and  the  real  part  has 
amplitudes  that  are  consistently  too  small.  The  2-D  approximation  provides  an 
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accurate  means  of  representing  damping  as  seen  by  comparing  relations  in 
Figures  21  and  29.  The  accuracy  of  calculated  displacements  improves  somewhat 
as  the  damping  ratio  increases.  The  results  for  5  percent  damping  compare 
much  better  with  the  Green's  function  solution  than  the  results  for  2  percent. 
Both  2  and  5  percent  damping  levels  are  used  for  comparisons  hereafter. 

Other  models:  Stiffness  varying  with  depth 

90.  The  results  for  Models  2,  3  and  4  are  shown  in  Figures  30  through 
32  and  compared  with  the  Green's  function  solutions.  Total  distances  are  used 
rather  than  normalized  distances  since  considerable  dispersion  is  expected. 

The  results  for  vertical  displacements  in  the  x-  and  y-direction  are  nearly 
equivalent  to  the  Green's  function  solutions  except  at  the  first  peak  in  tne 
real  part  for  all  three  cases. 


Conclusions 


91.  Comparisons  made  between  vertical  displacements  calculated  using 
vib3  and  Green's  function  solutions  (Kausel  1981;  Kausel  1989)  for  the  simple 
case  of  layered  axi- symmetric  geosystems  suggest  that  the  formulation  for  the 
specialized  element  and  the  implementation  in  vib3  are  sound,  accurate,  and 
stable.  Comparisons  were  made  for  static  and  dynamic  loads  and  for  reasonable 
ranges  of  Poisson's  ratio  and  damping  ratio.  Both  of  these  factors  were  found 
to  have  significant  effect  on  dynamic  displacements  which  emphasizes  the 
importance  of  obtaining  adequate  values.  The  calculated  displacements  were 
shown  to  be  more  accurate  as  damping  ratio  was  increased  from  2  to  5  percent. 
The  variations  of  dynamic  vertical  displacements  in  the  x-  and  y- directions 
generally  differ  reflecting  differences  in  interpolation  orders,  spatial 
discretization,  and  possibly  other  effects.  More  specific  examinations  of 
these  differences  are  contained  in  Part  V. 
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Figure  31.  Vertical  displacements  for  Model  3 


PART  V:  PARAMETRIC  ANALYSES 


92.  Parametric  analyses  were  conducted  to  assess  the  sensitivity  of 
the  formulation  and  computer  code  vib3  to  anticipated  ranges  of  system 
variables.  Calculations  were  made  using  Model  1  and  the  finest  mesh  (refer  to 
Figures  16  and  17)  except  in  the  case  of  examining  sensitivity  to  mesh  size. 
Green's  funct  .on  solutions  calculated  using  PUNCH  (Kausel  1989)  and  presented 
in  Part  IV  are  used  for  comparison.  Some  minor  differences  may  be  expected 
for  comparisons  between  the  Green's  function  solutions  and  the  2-D 
approximations  since  the  shape  of  the  load  is  different;  the  same  total  area 
(and  load)  were  used  to  minimize  these  differences. 

Effect  of  Av 

93.  The  effect  of  the  spatial  increment  of  discretization  in  the 
y-direction  was  evaluated  by  comparing  the  results  using  three  values  of  Ay 
between  0.051  and  0.20 1  (0.051  used  for  validation  in  Part  IV).  The  number  of 
FFT  points,  NM,  was  also  varied  to  keep  the  total  discretized  distance  in  the 
y-direction,  YTOT ,  constant.  This  distance  is  defined  by. 

YTOT  =  NM  •  Ay  (78) 

Keeping  YTOT  constant  serves  to  isolate  the  effects  of  Ay.  The  dynamic 
displacements  for  each  Ay  are  presented  in  Figures  33  through  35  along  with 
the  Green's  function  solution.  The  variation  of  vertical  displacements  in  the 
y-direction  among  the  values  of  Ay  are  compared  in  Figure  36. 

94.  The  large  difference  among  relationships  presented  in  Figure  36 
indicate  that  Ay  has  a  significant  effect  on  the  ability  of  vib3  to  accurately 
calculate  dynamic  displacements.  Comparisons  between  the  calculated 
displacements  and  Green's  function  solutions  are  favorable  when  Ay  <  0.101 
although  some  improvement  is  noticeable  by  decreasing  Ay  to  0.051.  These 
results  are  consistent  with  Kang's  (1990)  who  recommended  that  Ay  <  0.101. 

The  results  for  Ay  >  0.201  are  considered  to  be  too  inaccurate.  The 
calculated  variations  of  vertical  displacements  in  the  x-direction  are  very 
similar  for  all  Ay  which  suggests  that  the  solution  in  the  x-direction  is 
insensitive  to  Ay  within  tne  range  of  values  considered. 
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Figure  33.  Vertical  displacements  at  Ay  -  0.05X  and  NM  -  512 
and  Green’s  function  solution 
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Figure  35.  Vertical  displacements  at  Ay  -  0.20X  and  NM  -  128 
and  Green's  function  solution 
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95.  The  parametric  analysis  of  Ay  with  respect  to  X  indirectly 
addresses  the  effect  of  frequency  of  excitation  on  the  results.  For  a 
homogeneous  system  (with  constant  stiffness),  X  is  inversely  proportional  to 
frequency.  So,  the  spatial  increment  Ay  can  also  be  put  in  terms  of 
frequency: 


Ay  s 


V 

10  f 


(79) 


where 

V  -  phase  velocity 

f  -  frequency  (Hz) 

The  phase  velocity  can  be  taken  equal  to  the  Rayleigh  wave  velocity  as  a  first 
approximation.  Similar  relationships  to  Equation  79  have  been  observed  in 
other  types  of  discretized  solutions  for  dynamic  loading. 

Effect  of  Extent  of  Fourier  Expansion 

96.  The  comparisons  for  the  effect  of  Ay  were  made  using  a  constant 
value  of  YTOT .  The  effect  of  varying  TTOT  was  examined  next.  The  total 
distance  was  varied  at  three  values  between  3.2X  and  12. 81  (corresponding  to 
+1.61  and  +  6.41,  respectively)  by  keeping  Ay  constant  at  0.051  and  varying 
NM  between  128  and  512.  The  dynamic  displacements  for  each  YTOT  are  presented 
in  Figures  37  through  39  along  with  the  Green's  function  solution.  The 
variation  of  vertical  displacements  in  the  y-direction  for  the  three  values  of 
YTOT  are  compared  in  Figure  40.  The  results  for  the  vertical  displacements 
are  very  good  for  the  case  of  YTOT  -  ±  12.81.  The  results  for  YTOT  -  +  6.41 
are  also  good,  especially  for  distances  less  than  31,  and  the  results  for 
YTOT  -  +  3.21  are  considered  to  be  too  inaccurate.  A  threshold  of  101  is 
likely  to  be  appropriate. 

97.  The  variation  of  vertical  displacements  in  the  x-direction 
improves  as  YTOT  increases.  The  most  significant  improvement  occurred  as  YTOT 
increased  from  +  3.21  to  +  6.41.  The  solution  in  the  x-direction  was  shewn  to 
be  independent  of  Ay  so  the  dependence  can  be  attributed  to  either  NM  or  YTOT. 
The  dependency  is  most  likely  caused  by  YTOT  resulting  from  reflections  off 
the  free  end(s)  in  the  y-direction.  Less  reflected  energy  returns  to  the 

y  «  0  plane  as  the  total  discretized  length  in  the  y-direction  increases.  The 
threshold  for  YTOT  defined  for  the  solution  in  the  y-direction  appears  to  be 
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suitable  for  the  solutions  in  the  x-direction  based  upon  the  results  shown  in 
Figures  37  through  39. 


fi£  Element  5  Us 

98.  The  effect  of  varying  the  size  of  the  finite  elements  on  the 
dynamic  displacements  was  determined  by  using  the  three  different  meshes  shown 
in  Figure  17.  The  values  of  Ax  (-  Az)  corresponding  to  these  three  meshes  are 
0.20X,  0.40X,  and  0.80X.  The  vertical  displacements  for  the  finest  mesh  was 
presented  previously  in  Figure  26  ana  the  displacements  for  the  other  two 
meshes  are  shown  in  Figures  41  and  42  along  with  the  Green's  function 
solution.  The  results  for  the  variation  in  the  y- direction  for  the  three 
meshes  are  compared  in  Figure  43 . 

99.  The  variation  of  vertical  displacements  in  the  y-direction 
•mpare  well  with  the  Green's  function  solutions  except  for  the  coarsest  mesh 

^4  by  10  elements).  The  results  for  the  coarsest  mesh  are  unacceptable.  The 
finest  mesh  produces  peak  values  of  displacement  slightly  greater  than  the 
Green's  function  solution  and  the  original  mesh.  (This  solution  may  be  more 
accurate  than  the  Green's  function  solution  which  had  not  entirely  converged.) 

100.  The  variation  of  vertical  displacements  in  the  x-direction  also 
compare  well  with  the  Green's  function  solutions  except  for  the  displacements 
corresponding  to  the  coarsest  mesh  which  are  unacceptable .  The  solutions  in 
the  x-direction  are  generally  different  from  the  solutions  in  the  y-direction 
and  deviate  slightly  more  from  the  Green's  function  solution.  The  real  part 
of  dynamic  oisplacements  for  the  finest  mesh  shown  in  Figure  26  has  an 
anomalous  inversion  at  the  first  peak  which  tends  to  occur  only  for 
displacements  in  the  x-direction  calculated  using  the  finest  mesh. 

101.  The  variations  of  displacements  in  both  the  x-  and  y-direction 
are  dependent  on  the  discretization  in  the  x-direction.  The  dimensions  of 
finite  elements  with  quadratic  interpolation  functions  can  be  0.40X  although 
some  improvement  is  expected  as  Ax  is  decreased  further.  This  value  is 
consistent  with  the  conclusion  of  Kang  (1990).  A  better  threshold  is  probably 
equal  to  0 . 30X . 
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Figure  43.  Comparison  of  vertical  displacements  showing  effect  of 
size  of  finite  elements  with  Green's  function  solution 


Effect  of  Width  of  Load 


102.  The  load  width  in  the  x-  and  y-directions ,  XLOAD,  ranges  from  a 
point  load  to  +  0.064X  (80  by  80  in  total  plan  dimensions  at  3  Hz).  For  all 
practical  purposes  at  these  distances  and  depths,  these  loads  are  essentially 
point  loads.  The  dynamic  displacements  for  each  condition  are  presented  in 
Figures  44  through  47  along  with  the  Green's  function  solution.  The  results 
for  the  variation  in  the  y-direction  for  the  different  load  widths  are 
compared  in  Figure  48. 

103.  Little  noticeable  effect  is  evident  as  XLOAD  is  varied  over  the 
specified  range.  The  results  for  the  largest  width  considered  (+  0.064X)  are 
slightly  different  from  the  other  three  sets  and  the  Green's  function 
solutions  shown  in  Figure  19.  A  threshold  of  load  <  +  0.10X  appears  to  be 
reasonable  to  maintain  good  accuracy. 

104.  The  small  difference  between  the  results  for  the  point  load  and 
the  smallest  square  load  is  somewhat  surprising.  Kang  (1990)  noticed  a  larger 
difference  and  researchers  have  recognized  the  difficulty  in  calculating  an 
accurate  distribution  of  displacements  from  a  point  load  using  the  finite 
element  procedure  without  a  refined  mesh  in  the  vicinity  of  the  load. 

Computational  Effort 

105 .  The  amount  of  time  necessary  to  run  the  program  with  different 
system  parameters  was  reviewed.  The  two  parameters  considered  to  have  the 
greatest  effect  are  the  number  of  FFT  points,  NM,  and  the  number  of  degrees  of 
freedom,  dof.  (Recall  that  the  equations  are  solved  for  only  half  of  the  NM 
and  the  results  mirrored  prior  to  the  inverse  Fourier  transform.)  Comparisons 
of  user  CPU  (central  processing  unit)  times  versus  NM  are  shown  in  Figure  49. 
The  three  finite  element  meshes  described  earlier  were  used  to  provide  a  range 
in  degrees  of  freedom.  The  solution  times  are  of  the  same  order  as  NM  (linear 
relationship)  for  a  fixed  number  of  dof.  The  slopes  of  these  lines  range  from 
1.3  to  26.  Using  the  relationship  representing  6099  dof  as  an  example,  the 
increase  in  time  to  raise  the  total  NM  from  64  to  128  is  64  x  26  -  1664  sec. 
Comparisons  of  user  CPU  times  versus  dof  for  various  NM  are  shown  in 

Figure  50.  The  relationship  is  slightly  non-linear  for  a  fixed  NM;  the 
exponent  of  dof  is  about  1.12  and  increases  slightly  as  NM  increases. 
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Figure  45.  Vertical  displacements  subjected  to  a  0.06X- square 
load  and  Green's  function  solution 
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Figure  46.  Vertical  displacements  subjected  to  a  0.13X- square 
load  and  Green's  function  solution 
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Figure  47.  Vertical  displacements  subjected  to  a  0.261-square 
load  and  Green' s  function  solution 
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Figure  49.  Comparison  of  CPU  execution  times  on  CRAY  Y-MP  versus 

number  of  FFT  points 
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106.  The  amount  of  time  saved  in  using  the  present  formulation  over  a 
conventional  3-D  finite  element  formulation  was  estimated  by  solving  the 
problem  for  Model  1  using  the  commercial  software  package  ABAQUS.  Two  planes 
of  symmetry  were  used  such  that  only  a  3-D  quarter  space  was  required  to  be 
discretized.  A  total  discretized  space  of  81  by  31  in  plan  by  31  deep  was 
used  and  the  element  size  was  equal  to  that  used  in  the  8  by  20  mesh 
(Ax  -  Ay  -  Az  -  0.401).  A  3-D  isoparametric  element  with  20  nodes  (quadratic 
interpolation  functions  in  all  three  directions)  was  selected.  The  extent  and 
accuracy  of  discretization  in  the  y-direction  is  roughly  equivalent  to  NM  -  64 
and  Ay  -  0.101  which  were  used  with  vib3 .  Free  end  conditions  were  used  for 
non-symmetric  boundaries.  The  calculated  results  were  not  of  particular 
interest.  The  user  CPU  time  required  by  ABAQUS  to  solve  for  dynamic 
displacements  was  about  2820  sec  compared  to  370  sec  using  vib3 .  A  comparison 
of  times  is  shown  in  Figure  49.  Moreover,  almost  8  Mwords  of  memory  were 
required  to  solve  the  problem  using  ABAQUS  whereas  about  3.6  Mwords  were  used 
by  vib3 . 


Conclusions 

107 .  The  proposed  formulation  as  implemented  in  the  computer  code 
vib3  has  been  found  to  be  sensitive  to  the  following  system  parameters:  the 
spatial  increments  of  discretization  in  the  y-  and  x-directions  (  Az  always 
set  equal  to  Ax  )  and  the  total  length  of  discretized  space  in  the 
y-direction.  However,  the  solutions  in  the  x-direction  are  independent  of  Ay. 
The  results  are  also  moderately  sensitive  to  reasonable  ranges  of  Poisson's 
ratio  and  damping  ratio.  The  solutions  are  not  very  sensitive  to  the  width  of 
the  load  using  reasonable  bounds  for  synthetic  loads.  The  calculated 
displacements  were  again  shown  to  be  more  accurate  as  damping  ratio  was 
increased  from  2  to  5  percent. 

108.  The  parametric  analyses  provided  guidelines  for  the  selection  of 
system  parameters  to  ensure  acceptable  performance.  Thresholds  generally 
confirming  the  results  of  findings  by  others  are:  Ay  <  0.051  and  Ax  <  0.301. 
Thresholds  established  as  a  consequence  of  this  work  are:  YTOT  >  +  101  and 
XLOAD  <  +  0.101. 
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PART  VI:  SUMMARY 


109.  A  method  to  calculate  dynamic  displacements  in  2-D  geosystems 
produced  by  a  harmonic  point  or  rectangular  load  has  been  formulated  and 
implemented  in  a  two-dimensional  finite  element  computer  code  and  supporting 
pre-  and  post-processing  programs  that  function  on  the  US  Army  CRAY 
supercomputer  at  WES.  This  code  has  been  validated  with  analytical  solutions 
for  the  case  of  axi-symmetric  geosystems  subjected  to  static  and  dynamic 
loads.  Parametric  studies  were  performed  to  determine  how  the  accuracy  of  the 
calculated  displacements  are  affected  by  the  various  input  parameters .  All 
comparisons  indicate  that  this  method  is  a  viable  alternative  to  more  time 
consuming  3-D  numerical  solution  methods. 

110.  Pre-existing  studies  about  Rayleigh  wave  propagation  were 
reviewed  to  determine  if  alternative  means  are  available  to  calculate  dynamic 
displacements  for  the  stated  assumptions.  None  of  the  studies  reviewed 
provided  a  solution  to  solve  the  stated  problem.  Some  of  the  experimental 
studies  provide  insight  into  the  propagation  characteristics  of  surface  waves 
around  discontinuities  and  changes  in  ground  slope.  One  study  by  Kausel 
(1981)  was  found  to  be  appropriate  to  validate  the  code  for  the  simplest  case 
of  axi-symmetric  problems. 

111.  The  formulation  involves  creating  a  3-D  dynamic  stiffness  matrix 
and  then  condensing  the  components  into  an  equivalent  2-D  dynamic  stiffness 
matrix.  The  out -of -plane  loads  are  represented  by  a  Fourier  expansion  and 
applied  as  nodal  forces.  The  solution  to  the  system  of  equations  is  made  for 
each  spatial  wavenumber  and  then  the  inverse  Fourier  transform  produces  the 
complex  dynamic  displacements . 

112.  The  2-D  formulation  implemented  into  the  computer  code,  vib3 , 
has  been  proven  to  provide  accurate  values  of  static  and  dynamic  vertical 
displacements.  Validation  studies  were  performed  for  cases  of  static  and 
dynamic  loads  generally  using  reasonable  values  of  system  parameters.  The 
effects  of  static  loads  were  examined  in  terms  of  displacement  and  stress 
field  for  cantilever  beams  in  tension,  compression,  and  torsion  using  the 
specialized  16-node,  3-D,  finite  element  incorporated  into  a  static  3-D  finite 
element  computer  code.  Calculated  values  were  compared  with  closed-form 
elastic  solutions.  The  displacements  produced  by  static  and  dynamic  point  and 
square  loads  were  examined  for  cases  of  a  homogeneous  medium  and  three 
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combinations  of  four- layered  media  using  vib3  and  compared  with  Green's 
function  solutions  proposed  by  Kausel  (1981). 

113.  The  analysis  of  parameters  necessary  to  the  program  indicates 
that  once  threshold  values  are  met,  the  formulation  is  stable  to  variations  in 
parameters  defining  the  discretization,  condensation,  and  Fourier  expansion  of 
the  problem.  These  thresholds  are:  Ay  <  0.05X,  YTOT  >  ±  10X,  Ax  -  Az  <  0.30X 
(for  quadratic  interpolation),  and  XLOAD  <  +  0.10X.  Additional  improvements 
may  be  realized  by  using  even  smaller  values  of  Ax,  Ay,  and  Az.  Displacements 
can  be  calculated  about  8  times  faster  using  the  new  formulation  when  compared 
to  the  3-D  finite  element  code  ABAQUS. 

114.  The  results  of  this  study  allow  engineers  to  efficiently 
evaluate  wave  propagation  for  problems  of  vibration  (e.g.,  effect  of  vehicular 
vibrations  on  sensitive  equipment)  and  tunnel  detection  using  a  relatively 
simple  representation  of  the  system.  Little  knowledge  about  the  mathematical 
formulation,  or  even  the  finite  element  method,  are  required. 


PART  VII:  RECOMMENDATIONS 


115.  The  next  step  in  this  research  area  should  be  the  parametric 
numerical  analysis  of  more  complex  systems  and  evaluation  of  dynamic 
displacements.  This  effort  will  be  used  to  infer  the  best  method  and 
procedures  for  field  measurements  and  develop  a  strategy  for  formulation  of 
the  inverse  model.  Following  that  analysis,  calculated  values  should  be 
compared  with  field  measurements  in  real  geotechnical  systems  One  of  the 
primary  objectives  of  this  comparison  is  to  examine  ypical  levels  of  signal- 
to-noise  ratio  and  confirm  that  the  desired  signal  is  distinguishable  within 
the  desired  range  of  distance.  Other  objectives  are  to  measure  the  frequency 
band  width  of  energy  produced  by  a  Vibroseis  truck  and  evaluate  its  effect  on 
measured  signals  and  to  determine  the  distance  beyond  which  the  assumption  of 
plane  geometry  extending  to  infinity  is  no  longer  required. 
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APPENDIX  A: 

STATIC  LOADS  ON  SEMI  *  INFINITE  MEDIA 


Al.  Closed- form  solutions  for  (static)  vertical  and  horizontal  loads 
acting  on  the  surface  of  semi -infinite,  elastic  media  are  manipulated  to  show 
the  importance  of  properly  formulating  a  two-dimensional  ("planar")  problem 
subjected  to  three-dimensional  loads.  The  explicit  solutions  by  Boussinesq 
and  Cerutti  form  the  basis  for  this  demonstration.  The  vertical  point  load 
represents  a  3-D  load  and  the  line  load  represents  the  equivalent  2-D  load. 
The  conventions  used  for  definitions  of  variables  are  shown  in  Figure  A-l. 
Solutions  presented  by  Boussinesq  and  Cerutti  for  point  loads  were  evaluated 
on  the  plane  y  -  0  (in-plane  solution).  Unit-less  dimensions  are  used 
throughout;  consistent  units  should  be  used  when  involving  the  equations 
presented.  (The  form  of  units  is  shown  in  square  brackets  where  F  -  force 
L  -  length,  and  T  -  time.) 


Vertical  loads 

A2 .  Boussinesq  published  explicit  solutions  for  the  determination  of 
stresses  and  displacements  in  semi- inf inite  media  caused  by  a  vertical  point 
load  acting  at  the  surface.  The  medium  is  assumed  to  be  homogeneous, 
isotropic,  and  linear  elastic.  The  closed-form  Boussinesq  solutions,  as 
reported  by  Gray  (1936),  for  vertical  stress,  ov,  horizontal  stress,  oh,  and 
shear  stress  on  a  vertical  plane,  ,  all  in  the  form  [F/L2]  produced  by  a 
vertical  point  load  are: 
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where 

P  -  magnitude  of  vertical  point  load  [F] 
v  -  Poisson's  ratio  [-] 

Notice  that  o,pt  and  txipt  are  independent  of  material  properties;  only  oxpt 
(Equation  2)  is  a  function  of  a  material  property,  v. 

A3.  Equations  1  through  3  can  be  integrated  to  obtain  explicit 
solutions  caused  by  an  infinite  vertical  line  load  as  reported  by  Gray  (1936). 
The  closed- form  solutions  for  a  vertical  line  load  acting  on  the  surface  are: 
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where 

p  -  magnitude  of  vertical  line  load  [F/L] 

All  three  equations  presented  for  line  loads  are  independent  of  material 
properties.  Solutions  for  line  loads  of  finite  length  can  be  obtained  in  the 
form  of  tabulated  influence  factors  by  Lysmer  and  Duncan  (1969) . 

A4.  The  explicit  solutions  for  vertical  point  and  line  loads  can  be 
readily  compared  by  forming  the  ratios  of  the  respective  stresses.  The  ratios 
of  stresses  acting  on  a  vertical  plane  for  vertical  point  and  lines  loads  are: 
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Notice  that  the  ratios  formed  in  Equations  A7  and  A9  are  equivalent. 

A5.  The  functions  defined  for  the  ratios  shown  in  Equations  A7  (or 
A9)  and  A8  are  plotted  as  three-dimensional  surfaces  in  Figures  A- 2  and  A- 3 
and  Figures  A-4  and  A- 5,  respectively,  for  different  combinations  of  load  to 
facilitate  comparison.  These  surfaces  are  also  represented  with  two- 
dimensional  contours  subimposed  with  the  surface. 

A6.  The  sensitivity  of  the  load  ratio,  P/p,  on  the  ratio  for  vertical 
stresses  can  be  observed  by  comparing  the  surfaces  shown  in  Figures  A- 2  and 
A-3.  Two  ratios  of  load  are  considered:  P/p  -  50  and  100  [L] ,  which 
correspond  to  one-half  and  one  times  the  length  of  the  x-  and  z-axes 
(horizontal  and  vertical  distances,  respectively)  in  Figures  A- 2  and  A-3.  The 
ratio  of  vertical  (or  shear)  stresses  extends  from  between  0  and  1  at  great 
distances  from  the  source  and  approaches  infinity  at  locations  near  the 
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BOUSSINESQ  SOLUTION  RATIO 
VERTICAL  STRESSES 
P/p  =  100.0  L 


Figure  A- 3.  Ratio  of  vertical  st 

line  loads  foi 


Figure  A-4.  Ratio  of  horizontal  stresses  for  vertical  point  and 
li^a  loads  for  P/p  -  100  and  v  -  0.33 


A7 


Ratio  (Point/Line) 


Figure  A- 5.  Ratio  of  horizontal  stresses  for  vertical  point  and 
line  loads  for  P/p  -  100  and  v  -  0.49 
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source.  For  the  load  ratio  of  50  [ L]  shown  in  Figure  A- 2,  the  ratio 
approaches  infinity  near  the  surface  as  the  distance  to  the  point  of 
application  approaches  zero  and  approaches  0.38  at  a  distance  of  100.  So, 
within  a  range  of  distance  of  two  orders  of  magnitude  (1  to  100),  the  vertical 
stress  for  a  point  load  varies  two  orders  of  magnitude  (point  load  is  38  times 
to  0.38  times  the  vertical  stress  for  a  line  load).  The  calculated  stresses 
are  equal  at  a  radial  distance  on  the  vertical  plane  of  38.  For  a  load  ratio 
of  100  [L]  shown  in  Figure  A-3,  the  ratio  ranges  from  75  to  0.75  for  distances 
of  1  to  100  with  unity  at  a  radial  distance  of  75. 

A7 .  The  gradient  of  the  surfaces  shown  in  Figures  A- 2  and  A-3  is  a 
function  of  the  inverse  of  the  square  root  of  distance,  R"0'5.  The  gradien-  of 
the  surface  approaches  infinity  as  R  0.  Beyond  the  point  where  the  ratio  is 
unity,  the  gradient  is  low  and  approaches  zero  as  R  P/p.  A  lower  or  zero 
gradient  is  desirable  for  a  stable  matching  of  solutions.  This  suggests  that 
if  a  load  ratio  were  to  be  selected  to  best  represent  a  point  load  using  a 
two-dimensional  solution  for  estimation  purposes  only,  a  large  ratio  of  P/p  be 
used  while  the  radial  distances  of  interest  should  be  slightly  less  than, 
equal,  or  somewhat  exceed  the  radial  distance  corresponding  to  unity. 

A8.  The  sensitivity  of  v  on  the  ratio  for  horizontal  stresses  can  be 
observed  by  comparing  Figures  A-4  and  A-5.  Two  values  of  Poisson's  ratio  were 
used:  0.33  and  0.49.  The  surfaces  representing  horizontal  stresses  acting  on 
a  vertical  plane  indicate  that  the  ratio  extends  to  both  positive  and  negative 
infinity.  The  ratio  approaches  positive  infinity  near  the  surface  (as 
vertical  distance  approaches  zero)  near  the  point  of  application  (as  the 
horizontal  distance  approaches  zero) ,  negative  infinity  as  the  vertical  or 
horizontal  distance  approaches  zero,  and  a  finite  value  between  0  and  1  for 
the  remainder .  The  surface  has  lower  gradients  as  v  increases . 

A9.  It  should  be  clear  that  the  stre  ;ss  acting  on  a  vertical  2-D 
plane  produced  by  concentrated  (point)  loads  are  much  different  from  those 
produced  by  a  line  load  oriented  perpendicular  to  the  analysis  plane  for  semi¬ 
infinite  media.  The  results  of  numerical  analyses  that  incorporate 
assumptions  of  plane  strain  to  solve  3-D  problems  can  be  erroneous  if  solving 
for  3-D  loads. 
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Horizontal  loads 


A10.  Cerutti  published  explicit  solutions  to  the  stresses  and 
displacements  in  a  semi- infinite  medium  caused  by  a  horizontal  point  load. 

The  closed-form  solutions  for  vertical  stress,  ov,  horizontal  stress,  oh,  and 
shear  stress  on  a  vertical  plane,  xn  ,  produced  by  a  horizontal  point  load 
acting  on  the  surface  are: 


crpt  *  3Qxz2 
*  "  2*R5 


(A10) 


c 


-Qx  -3x2  +  (l-2v) R2 
2xRJ  R2  (R+z) 2 


(All) 


t* 


3Qx2z 

2rtR5 


(A12) 


where 

Q  -  magnitude  of  horizontal  point  load  [F] 
v  -  Poisson's  ratio 

Notice  that  only  Equation  All  is  a  function  of  a  material  property,  v. 

All.  Equations  A10  through  A12  can  be  integrated  to  obtain  explicit 
solutions  caused  by  an  infinite  horizontal  line  load  as  reported  by  Poulos  and 
Davis  (1972).  The  variables  of  the  problem  are  shown  in  Figure  A-l.  The 
closed- form  solutions  for  a  horizontal  line  load  acting  on  the  surface  are: 


in  _  2qx2z 
*  *R4 

(A13) 

oin  -  23*1 

HR4 

(A14) 

.In  _  2qx2z 

4 

icR4 

(A15) 

where 

q  -  magnitude  of  horizontal  line  load  [F/L] 

None  of  the  three  equations  presented  for  horizontal  line  loads  is  a  function 
of  material  properties. 

A12.  The  explicit  solutions  for  horizontal  point  and  line  loads  were 
used  to  show  the  importance  of  correctly  matching  the  type  of  load  to  the  tvpe 
of  problem.  The  ratios  of  stresses  acting  on  a  vertical  plane  for  point  and 
lines  loads  are: 
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(A16) 


*  „  _i_0 

oin  4R  Q 


fi!  «  3x* 

oin  '  4x2  R4 


(l-2v)  Q 
(r+z)  2  q 


„  _3_  0 

4R  q 


(A17) 

(A18) 


The  ratios  for  vertical  stress  and  shear  stress  are  again  equivalent  and  are 
also  equivalent  to  the  stress  ratios  for  vertical  loads  (Equations  7  and  9  and 
Figures  A-2  and  A-3).  The  relation  produced  from  the  ratio  for  horizontal 
stresses  (Equation  17)  caused  by  the  horizontal  load  is  only  slightly 
different  from  that  for  vertical  loads  (Equation  8)  and  is  plotted  in 
Figure  A-6  for  v  -  0.33. 


All 
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APPENDIX  B: 

DERIVATION  OF  SYSTEM  OF  EQUATIONS 
FOR  THE  FINITE  ELEMENT  METHOD 


Bl.  The  stress  equilibrium  equations  are  satisfied  through  the 
principle  of  virtual  work  (Zienkiewicz  and  Taylor  1989).  Assuming  that  small 
virtual  displacements,  &U,  occur  at  the  nodes,  virtual  displacements  within 
the  element  are  obtained  by: 


6u  =  ■  8U  (Bl) 

where 

N  -  matrix  of  interpolation  functions 
Corresponding  virtual  strains  are  obtained  by: 

fte  *  B  &U  (B2) 


where 

B  -  matrix  of  partial  derivatives  of  shape  functions 
And  the  virtual  strain  energy,  bU ,  is  evaluated  as: 

bU  =  J  btTa  dv 


(B3) 


where 

eT  is  the  transpose  (vector)  matrix  of  e 
"v"  designates  integration  over  the  volume 
The  external  virtual  work,  bW,  done  by  the  nodal  forces,  P,  and  body  forces, 
b,  can  be  defined  as: 


6  W  «  8UT  P  +  J  6uT  b  dv  (B4) 

Applying  the  principle  of  virtual  work  (internal  virtual  work  equals  external 
virtual  work) : 


bU  =  bw 


(B5) 


substituting: 


o  dv 


bUT  P  +  j  6ur  b  dv 


(B6) 


B2 


Through  substitution  and  the  use  of  transpose  vectors,  the  following  is 
obtained: 


B*  D  B  dvj  0  *  &UT  P  +  60T  j  HT  b  dv 


^»'D»dv)o.F,/v«’bdv  (B8) 

B2.  Assuming  that  the  only  contribution  of  the  body  force  is  from  the 
inertial  effects  and  using  d'Alembert's  principle: 


b  *  -p  fi 


where 


p  -  mass  density 

u  «■  are  accelerations  for  Cartesian  components 
Substituting  equation  B1  into  B9: 


b  =  -p  H  6 


(BIO) 


Further  substitution  leads  to: 


{Jy  B*  D  B  dvj  0  -  p  -  ^  p  wr  V  dvj  5 


(Bll) 
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APPENDIX  C: 

FINITE  ELEMENT  PROGRAM  vib3 


Cl.  The  following  text  is  a  listing  of  the  computer  program  vib3 


written  in  FORTRAN. 


PROGRAM  VI 83  * 

cccccccccccccccccccccccccccccccccccc 
C  c 

C  Program  VIB3  Is  a  finlta  element  coda  writcan  to  aolva  the  C 

C  the  problem  of  wave  propagation  produced  by  3-D  loads  acting  C 

C  In  2-D  soil / geologic  systems.  The  stiffness  matrix  for  C 

C  each  3-D  alamant  is  condensed  into  an  equivalent  2-D  C 

C  (dynamic)  stiffness.  C 

C  C 

C  The  methodology  f-t  solving  the  problem  was  provided  by  C 

C  Prof.  Jose  Roes'  and  Dr.  Vincent  Kang  at  the  University  C 

C  of  TEXAS  at  Austin  as  part  of  their  research  to  solve  a  C 

C  similar  problem  for  pavement  systems  (completed  May  1990).  C 

C  The  basic  structure  and  frontal  solver  used  C 

C  were  initially  provided  by  Professor  John  Tassoulas  at  C 

C  Che  University  of  TEXAS  at  Austin  for  a  graduate  course  on  C 

C  the  finite  element  method.  C 

C  C 

C  The  program  has  bean  special iaed  for  a  16-node  isoparametric  C 

C  element  that  is  quadratic  in  the  x  and  s  directions  and  linear  C 

C  in  the  y  direction  (direction  of  condensation).  C 

C  C 

C  At  the  present,  this  code  is  vritten  for  single  frequency  C 

C  harmonic  excitations.  Transient  and  multi-frequency  exci-  C 

C  tations  will  require  a  PPT  from  the  time  domain  to  th-  C 

C  temporal  frequency  domain.  C 


VIB3_*.F  designates  ammory  require 
batch  queue  *prisw 


ants  consistent  with 


C  VTP5_*.F  uses  two  single-subscripted  arrays  to  store  all  C 
C  massive  information  (AtC) .  Inilelma  point  to  the  beginning  of  C 
C  various  arrays.  C 
C  C 
C  This  program  vas  last  updated  on  26  August  1992.  C 
C  C 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  C 
C  VI83.F  ...  VIB3.P  ...  VIB3.F  ...  VIB3.F  ...  VIB3.FC 
C  C 
cccccccccccccccccccccccccccccccccccc 
c  c 

C  The  limitations  on  the  program  input  are:  C 
C  C 
C  Use  with  3-D,  16-node  eleaient  only  C 
C  Ho  (static)  surface  loads  (see  MODIF)  C 
C  Zero  body  forces  (see  MODIF)  C 
C  Maximum  of  30  (select)  nodes  (Dim.  in  MAIN  6  DATAIN)  C 
C  Maximum  of  3000  nodes  for  multi-D  plotting  (6  Mvord  limit)  C 
C  Maximum  of  10  frequencies  of  interest  C 
C  Maximum  of  512-NM  (Dimension  and  IKD(17))  C 
C  C 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  C 
C  VIB3.F  ..  VIB3.F  ...  VIB3.F  ...  VIB3.F  ...  VIB3.FC 
C  C 
cccccccccccccccccccccccccccccccccccc 
c  c 

C  The  input  parameter  list  (in  general)  is:  C 


Variables 


TITLE1  (Up  to  50  characters) 
TITLE2  (Up  to  50  characters) 
TITLES  (Up  to  50  characters) 


C  2 


nonnnnononnnnnonononnooonnnnnnnonnnonnnonn 


MAIM  INCHECK,  INOUT,  I PRINT,  INPLOT 

where:  INCHECK-0  cheek  input  only 
1  full  execution 
INOUT-O  minimal  output 
1  full  output 

I PRINT-0  no  aolver  information 
1  minimal  aolver  info. 
->2  full  aolver  info. 
IPLOT-O  no  dynamic  plot  files 
1  dynamic  plot  files 

MAIN  HN2,NUMEL,  NOMAT 

MAIN  HA 

MAIN  NF ,  DY ,  NM , NSLCT 

MAIN  (loop)  PR  (Ha) 

MAIN  TOLSM(SM) 

OATAIN  (loop)  NODE#,  X,Y,Z 

DATAIN  (loop)  HS.IDIR.IVAR 

DAT  AIN  NELX.NELZ 

DATAIN  (loop)  EL# .MAT , I CONN 

ELP3D  (loop)  MAT,G,FR,DAMP,RO 

where:  DAMP  (decimal) 

YLQAD  PMAG,  YLDIS 

where:  PMAC*YLDIS-0 . 5  for  normal ired 
load  (total  load  -  1) 

MAIN  XL.XR 

cccccccccccccccccccccccccccccccccc 


cccccccccccccccccccccccccccccccccc 

The  units  for  this  program  are  universal.  Consistent  units 
are  as  follows: 


Shear  modulus 
Mass  density 


Displacement 


Fa 

kg/m**3 


psf 

(lb-s*«2) /ft 

-  alugs/ft**3 

-  pcf/32.17 

ft 


Damping  ratio  is  in  decimal  form. 

Frequency  must  be  in  Hs. 

The  following  conversion  factors  are  provided  for  convenience: 


multiply 

psf 

bar 

slugs/ft*»3 

ft 


47 .#8026 
0.00001 
513.3 
0.3048 


Pa  (N/m**2) 

Pa 

kg/m**3 


cccccccccccccccccccccccccccccccccc 


cccccccccccccccccccccccccccccccccc 

Tape  (unformatted)  Library: 


(TAPE!) 

Displacement  vector  (TAPED) 
Load  vector  (TAPEL) 

LHS  4  RBS  for  solution 
Original  load  vector 


C3 


o  o 


ooooonoooonoooooooooooooooooooooooooooooooooooooooo 


C  Tap*  (format tad)  library:  C 

C  c 

1}  Real  components  of  select  atlffnaaa  matricaa  C 

16  Imaginary  components  of  aalact  atlffnaaa  matricaa  C 

20  Primary  output  flia  (HTAPEO)  C 

22  Non-eero  coeponsnts  of  load  vactor(a)  C 

23  Input  flia  for  dynamic  2-D  plotting  (dvlow)  C 

23  Input  flia  for  atatlc  plotting  (y_plot  l  pltveve)  C 

C 

ccccccccccccccccccccccccccccccccccc 

c 

VIB3.P  ...  VIB3.P  ...  VIB3.F  ...  VIB3.P  ...  VIB3.FC 

C 

ccccccccccccccccccccccccccccccccccc 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PRIMARY  VARIABLE  LIST: 

(Varlablaa  uaad  for  aoivar  llatad  undar  Subroutlna  SOLVE.) 

A  Raal/Intagar  (1-D)  array  uaad  for  moat  data. 

AI  i 

C  Cooplex/ Integer  (1-D)  array  uaad  for  SOLVER 

CFOR  Wavanumba r-doma In  daacrlption  of  load  in  y-dlraction 

CRHS  Comp lax  RBS  from  dynamic,  aurfaca,  l  body  forces 

CRH SC  Condensed,  complex  RBS 

CSM  Complex  atlffnaaa  matrix  (3-D) 

CSMC  Condensed,  complex  atlffnaaa  matrix  (2-D) 

CW  Complex  amplitude  of  select  nodes  In  a-dlrectlon 

CWIM  Complex  amplitude  of  aalact  nodes  for  specific  lo 

DAMP  Damping  ratio  (-) 

DAMPC  Complex  damping  ratio 

DM  Increment  of  wavenumber  m  (delta  m) 

DY  Increment  of  spatial  variable  y  (delta  y) 

FACT  Factor  for  Inverse  FFT 

PR  Frequencies  of  interest 

FOR  Spatial-domain  description  of  load  In  y-dlrection 

F2  Conversion  factor  (radians  to  degrees) 

C  Shear  audulus  (real) 

GC  Complex  shear  modulus 

I COHN  Element  connectivity  for  3-D  mesh 

MA  Memory  allocation  for  solver 

MAT  Material  type  Index 

NCH  KM+2 

NDOFE2  No.  of  degrees  of  freedom  per  elem. ,  cond-  mesh 

NDOFN2  No.  of  degrees  of  freedom  per  node,  cond.  amah 

HDOFT2  No.  of  degrees  of  freedom  (load  vector),  cond.  mesh 

NELX  No.  of  elements  In  x-directlon,  3-D  amah 

NKL2  Ho.  of  elements  in  s-dlrectlon,  3-D  mesh 

NF  No.  of  frequencies  of  Interest 

NSLCT  Ho.  of  select  nodes 

NM  No.  of  m’ a  for  FFT 

NM2  Half  the  NM’s 

HM2P1  NM2+1 

NM2P2  NM2+2 

HN  Number  of  nodes,  3-D  me  ah  (1-element  thick) 

NNE2  Number  of  nodes  per  element,  condensed  mesh 

NNT2  Hunger  of  nodes  (total),  condensed  mesh 

HOMAT  Number  of  auterial  types 

NS  Nodes  of  Interests 

NUMEL  Number  of  elements,  3-D  amah 

NUMEL2  Number  of  elements,  condensed  mesh  (“NUMEL) 

OM  Operating  frequency  (rads /sec) 

P  Surface  loads  (aero) 

PMAC  Magnitude  of  dynamic  load 

PR  Poisson’s  ratio 

RBS  Body  forces  (real) 

RO  Mass  density 

TM  Value  of  m  (reel)  In  DO  loop 

TOLSM  Tolerance  for  symmetry  of  stiffness  matrices 

X  Coordinates  of  nodes  (3-D) 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


CA 


n  n 


U  O  t) 


c 

c 

c 

c 

c 

c 

c 

c  c  c 


XL  X-eoordinate  at  left  edge  of  load  C 

XR  X-coordlnat#  at  right  adga  of  load  C 

XMAX  Max.  extant  of  3-D  aaah  In  x-dlrectlon  (-XMAX  to  XKaX)C 

YLDIS  Extant  of  load  in  y-direetion  from  y-0  C 

YTOI  Dlatanca  for  Fourier  axpanalon  (DY*NM)  C 

ZMAX  Max.  axtant  of  3-D  aaah  In  a-diraction  (0  to  ZMAX)  C 

C 

CCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCC 
DIMENSION  IA(  70000) ,A(70000) , IC(200000) , FR(10> ,NYL{8> , IVAR(50) 
COMPLEX  0(200000) ,CW(51* ,  3000) ,CWIM(51A) 


C 

C  Dlaanalon  ehangaa  to  arrays  C  and  IC  oust  also  ba  made  to 
C  DATA  NO,  and  arrays  A  and  IA  in  SUBROUTINE  SOLOUT. 

C 


COMPLEX  El ,  E2 ,  AI ,  All  ,CPD 
EQUIVALENCE  (A(l)  ,  IA(1)  )  ,  (C(l)  ,  IC(1)  ) 

CHARACTER* 50  TITLE1 ,  TITLE2 ,  TITLE3 
COMMON  /BIG/  BIG 

COIMON /  CNTL /  ISYM ,  NUMEL2 ,  IRESOL ,  HRHS ,  NTAPEB ,  NTAPEU ,  NTAPEL , MA , 
IWRT ,  IPRINT ,  IERR,  NNEGP ,  HPOSP ,  NRHSF , 

IB ,  IU ,  IL ,  IPB ,  IFU ,  IFL ,  MBUP ,  MU ,  KKF , 

MELEM , MFMR , MB , MDOP , MPW , MLDEST 
COIMON  /CONDS/  NNE2 , HDOPN2 , HNT2 , NDOFE2 , HDOFT2 
COMMON  /FLAGS/  IND(22) 

COIMON  /INFO/  NN, N0MAT , NF, NSLCT,  INOUT,  IHP LOT 
COMON  /IHTERFF/  AN1D(16,18)  .DNDXI (3 , 16, 18)  ,U(18) 

COSMON  /MAX/  XMAX. ZMAX 
COMON  /MESH/  NELX.NELZ 
COMON  /REALA/  A 
COIMON  nQLI  TOLSM 
COMON  /UNIT/  HTAPE . NTAPEO 
COIMON  /WORX/  C 
DATA  NA/ 70000/ 

DATA  NC/200000/ 

DATA  NYL/A, 8. 16, 32, 61, 128, 256, 512/ 


C»»»»»»»»»»»»»»»»»»»»»»»»>>»>>»»»»>>>>»> 

C 

Constants  for  FRONTAL  SOLVER: 

ISYM-1:  Synmatrlc  stiffnass  aiatrix 

•2:  Unsymnetric  resolution  inactivated 

C  »3:  Unsjumstrlc  rasolutlon 

C  IRESOL-0:  CALL  CGMPL  (lover  triangle  of  stiffness  matrix) 

C  >1:  CALL  RESOL  (full  stiffness  matrix) 

C  NRHS-0:  Rasolutlon  with  aero  RES 

C  -1:  One  RHS 

C  -l:  1  RHS’s 

C 

C  Solver  output  index - 
C  IPRIHT-0:  no  solver  output 

C  IPRINT-1:  general  output 

C  IPRINT»2:  full  information  (pivot  lnfor.) 

C 

ISYM-1 
IRESOL— 0 
NRHS-1 

C  IPRIHT-1 

C 

NTAPEB— 7 
NTAPEU -8 
C 

C  NTAPEL  is  used  only  for  NRBS  >  1 

C 

NTAPEL— 9 
NT APE-10 
NTAPEO20 


C>>>>>>»»»>>>>>>»»»>>>>>>>>>>»>>>>>>>»>>>>>>>>>>>>»>>>>>>7>>> 


C5 


OPEN ( 15 , FILE* *  STIFF_R* , STATUS- ‘ UNKNOWN • ) 

OPEN  (16 .FILE-  ’  SIIFF_I  •  ,  STATUS- 1  UNKNOWN ’ ) 

OPEN(NTAPEO, FILE— ’OUTPUT’  .STATUS-' UNKNOWN'  ) 

OPEN (22, FILE- ’LOADFFT’ .STATUS- ’UNKNOWN’ ) 

OPEN(23,FILE-’dplot_2d. in* , STATUS-* UNKNOWN ’ ) 

OPEN (25, FILE- 'plot. In’ , STATUS- ' UNKNOWN ' ) 

C 

C  Basic  information  about  tha  analyaij 
C 

HDIM-3 
MNNE-16 
MNDOFN— 3 
MDOFE— 48 
BIG-1 . 0E50 
WRITE(NTAPEO,5) 

5  FORMAT ( ’ ••*•*•*•**•••*•****  PROGRAM  VIB3  *••*******••••*••••*•,//, 

*  lx,’  This  program  was  written  to  solve  for  dynamic  displace- , 

*  lx, 'mants  in  complex  soil /geologic  media  using  a  2-D  finite  ’,/, 

*  1;;,  ’element  formulation.  Tha  formulation  assumes  planar  ',/, 

*  lx, 'geometry  a. id  omterial  properties  in  the  out-of-plane  ’,/, 

*  lx, ’direction  and  a  harmonic  source  acting  on  the  surface.*,//, 

*  lx,’  This  program  was  written  by  David  Sykora,  at  US  Army',/, 

*  lx, 'Engineer  Waterways  Experiment  Station  (WES),  Vicksburg,’,/, 

*  lx, ’MS,  under  sponsorship  of  ILIR  program  (FY90-92 ).’,//, 

*  lx,’  Prof.  Jose  Roesset,  Univ.  of  Texas  at  Austin,  developed',/, 

*  lx, 'the  condensation  procadure  used  in  the  formulation  as  ’,/, 

*  lx, ’successfully  implemented  by  Dr.  Kang  (1990)  for  pave-  ’,/, 

*  lx, ’ment  systems.  Solver  subroutines,  the  FFT  routines,  and  ’,/, 

*  lx, ‘the  basic  framework  of  tha  finite  element  program  were  ’,/, 

*  lx, ’obtained  from  Profs.  Roesset  and  Tassoulas,  UT.  ’ ,11, 

*  lx,  ’THIS  SOFTWARE  IS  DISTRIBUTED  AS  IS  AND  WITHOUT  WARRANTY',/, 

*  lx, ’AS  TO  PERFORMANCE.  THE  USER  MUST  ASSUME  THE  RISK  OF’,/, 

*  lx, 'USING  THIS  SOFTWARE!',//) 

READ(5,6)  TITLE1 

RKAD(5,6)  TITLE2 
READ<3,6)  TITLES 

READ (5,*)  INCHECK, INOUT . IPRINT , INPLOT 

READ(5,*)  NNT2 , NUMEL , NOMAT 

NN-NNT2-2 

READ(5,«)  MA 

READ(5,*)  NF , DY , NM , NSLCT 

DO  2  1-1,8 

IF  (NM .  EQ .  HYL  ( I ) )  GOTO  3 
IF  (I  .EQ.8)  THEN 

WRITE (6,*)’ INCORRECT  INPUT  VALUE  OF  KM' 

STOP 

ENDIF 

2  CONTINUE 

3  CONTINUE 

WRITE  (NTAPEO .  6  )TITLE1 
WRITE(NTAPEO, 6)TITLE2 
WRITE ( NTAPEO , 6 ) TITLE3 

WRITE  (NTAPEO,  15)  NM.DY,  NOMAT,  NSLCT,  BIG,  MA 
WRITE (NTAPEO, 16)  NDIM, NUMEL, NN.MNNE, MNDOFN, MDOFE 

6  FORMAT  (A50) 

15  FORMAT  ill,’  ••‘••PROBLEM  PARAMETERS.’,//, 

1  IX, 'HUMBER  OF  TERMS  FOR  FFT:  ’,16,/, 

2  IX, ’INCREMENT  OF  Y  (DY) :  ’.F6.2,/, 

1  IX, 'NUMBER  OF  MATERIAL  TYPES:  ‘.16,/, 

2  IX, ’NUMBER  OF  NODES  OF  INTEREST:  ’.16,/, 

3  IX. ’"BIG-:  \E12.7 ,/, 

4  IX, ’MAXIMUM  ARRAY  ALLOCATION.  ’,17,//) 

16  FORMAT! / , 1  3-D  MESH: ’,// , 

1  IX. ’NUMBER  OF  DIMENSIONS:  ’.16 ,/, 

2  IX, 'NUMBER  OF  ELEMENTS:  ’.16,/, 

3  IX, 'NUMBER  01  NODES:  ',16,/, 

4  IX, ’NUMBER  OF  NODES /ELEMENT:  ',16,1, 

5  IX. 'DEGREES  OF  FREEDOM/NODE:  ’.110,/, 

6  IX, 'DEGREES  OF  FREEDOM / ELEMENT :  ’,16,//) 


C6 


C  PttiMttra  for  condensed  elements 
C 

NUMEL2-NUMEL 

NNE2-MNNE/2 

ND0FN2-MND0FN 

NDOFE2-NNE2*NDOFN2 

NDOFT2«NUMEL2*NDOFE2 

WRI TE ( NTAPEO  ,17)  HDIM ,  NUMEL2 ,  KNT2 ,  KKE2 ,  NDOFN2 ,  KDOFE2 
IF ( IMPLOT . HE . 0 )  THEM 
WRITE  (  23  ,•)  OTIT2 ,  HUMEL2 
ELSEIF( INPLOT. EQ.O)  THEN 

WRITE(23,*)'No  2-D  dynamic  plot  flla  created  (INPLOT-O).’ 

END  IF 

1 7  FORMAT  (  / ,  ’  CONDENSED  MESH :’.// , 

1  IX, ’NUMBER  OF  DIMENSIONS:  ‘.16.1, 

2  IX, ’NUMBER  OF  ELEMENTS:  ‘.16.1. 

3  IX, ’NUMBER  OF  NODES:  '.16.1. 

*  IX, ’NUMBER  OF  NODES /ELEMENT:  ’,16,/, 

5  IX, ’DECREES  OF  FREEDOM/NODE:  ‘.110,1, 

6  IX, ’DECREES  OF  FREEDOM /ELEMENT:  ‘.16.11) 

C  >»»>>»»>>>»»>»  STORAGE  ALLOCATION  >>>>>>>>>»>>>»>>>>>>>»>>> 
C  ! 

Caaaaaaaa*  BELOW  CORRESPOND  TO  ARRAY  A  (raal/intager)  eeeeeea**e*e*eee| 
C  I 

IND(1)-I  1 

C . X  (3-D  nodal  coordinatas)  ! 

IND(2)“IND(1)+3*NN  1 

C . C  (raal  shaar  modulus)  ! 

IND(3)-IND(2)+NOMAT  I 

C . IS  (boundary  conditions)  ! 

IND(*)-IND(3)+3*NN  ! 

C . FR  (frequencies  of  lntarast)  I 

IND(5)-IND(*)+NP  ! 

C . NS  (nodes  of  lntarast)  I 

IND(6)-IND(5)+NSLCT+7  ! 

C . IDIR  I 

IND(7)-IND(6)+HSLCT  I 

C . I CONN  (alamant  connactlvitias)  I 

IND(8)-IND(7)>NUMEL«MNNE  ! 

c . MAT  (matarlal  type  indax)  t 

IND(9)«IND(8)+NUMEL  I 

C . RO  (mass  density)  ! 

IND(10)-IND(9)+NOMAT  1 

C  I 

caaaaaa  BELOW  CORRESPOND  TO  ARRAY  C  (conplax/ lntagar)  aaaaaaaa**a**a**| 
IND(11)-1  I 

C . IPREP  (usad  In  PREFNT)  I 

IND(12)-IND(11)+2*(NUMEL2*NNE2+NNE2)  I 

C . IDEST  (usad  in  DESVEC)  ! 

IND(13)-IND(12)+NUMEL2*NNE2  ! 

C . COMPLEX  ARRAY  FOR  SUBROUTINE  SOLVE  ! 

IND(1*)-IND(13)+MA  I 

C . COMPLEX  ARRAY  FOR  2-D  SOLUTION  (amplltuda-f  (x.m.a.OK) )  I 

IND(15)-IND(l*)+NDOFN2*NNT2  I 

C . Complex  load  vector  components  I 

IND(16)-IHD(15)-fNDOFT2  I 

C . Matarlal  constants  ! 

IND(17)-IND(16)+3»NOMAT  ! 

C . CFOR  ! 

IND(18)-IND<17)+513  ! 

C .  I 

IND(I9)-IND(18)  1 

C .  ! 

IND(20)-IND(19)  ! 

C .  ! 

IND'21)-IND(20)  I 

C .  ! 

IND(22)-IHD(21)  ! 

C  >>»>»>»»»»>>>»»>>»»>>>>>»>>>>>>>>>>>>>>»>>>>»>>>>>>>>>>> 
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WRITE(6,29) 


FORMAT(5(/),25X, 

•  V  v 

I 

BBBB 

33333 ’ ,/, 

25X, 

•V  V 

I 

B  B 

3’,/, 

25X, 

•  V  V 

I 

B  B 

3  ’,/, 

25X, 

’  V  V 

I 

BBBB 

333  ’,/, 

25X, 

’  V  V 

I 

B  B 

3’,/, 

25X, 

’  V  V 

I 

B  B 

3’,/, 

25X, 

’  V 

I 

BBBB 

333  ’,////) 

Chack  man  (nan  storage  (for 

Array  A) 

C 

MAXA— IND(  10)-1 
IF(MAXA.GT.KA)  THEN 
WRITE(6,30)  MAXA 

IF(INOUT.EQ.l)  WRITE (NTAPEO, 30)  MAXA 
30  F0RMAT(1X,  'INSUFFICIENT  MEMORY  LOCATIONS’,/, 

*  IX, 'REQUIRED  LENGTH  OF  ARRAY  A:‘,lX,I7,/> 

STOP 

ELSE 

IF(INOUT.EQ.l)  WRITE(NTAPEO, 35)  NA-MAXA 
WRITE (6, 35)  NA-MAXA 
35  FORMATUX, 

+  ’NUMBER  OF  UNUSED  MEMORY  WORDS  IN  ARRAY  A:  ’,1X,  17,/) 
ENDIF 


Chack  muUwi  storage  (for  Array  C) 

MAXOIND  (22) -1 
IF(MAXC.GT.NC)  THEN 
WRITE( 6 ,31)  MAXC 

IF  ( INOUT.  EQ.  1)  WRITE  (NTAPEO,  31)  MAXC 
31  FORMAT  (IX, 'INSUFFICIENT  MEMORY  LOCATIONS’,/, 

*  IX, ’REQUIRED  LENGTH  OF  ARRAY  C:\1X, 1 7,/) 

STOP 
ELSE 

IF ( INOUT. EQ.  1) WRITE (NTAPEO,  36)  NC-MAXC 
WRITE(6 , 36)  NC-MAXC 
36  FORMAT/ IX, 

+  'HUMBER  OF  UNUSED  MEMORY  WORDS  IN  ARRAY  C:’,1X,I7,/) 

ENDIF 

C  »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»> 

WRITE  (NTAPEO,  *9) 

*9  FORMAT(/, IX, ’FREQUENCIES  OF  INTEREST  (Be):  ’,/) 

DO  50  IF-l.NF 

50  READ(5,*)  FR(IF) 

DO  51  IF-l.NF, 6 

51  WRITE (NTAPEO, 55)  (FR(I) , I-IF, IF+5) 

55  FORMAT(1X,6F10.3) 

READ/5 , *)  TOLSM 

IF ( INOUT . EQ . 1 ) WRITE ( NTAPEO , 59 ) 

IF ( INOUT. EQ  1) WRITE (NTAPEO, 60)  TOLSM 

59  FORMAT/ //, IX, ’SPECIFIED  TOLERANCES-  ’,/> 

60  FORMAT(lX, ’STIFFNESS  MATRIX  SYTtttTRY:  ’  ,E15.*  ,3X,  ’  (F/Ll  ’ ,  /  /  ) 

CALL  DATAIH(NUMEL,  A(IHD(1)  ),IA(IRD(7)),  IA(IND(  3 )  )  ,  IA(IND(8)  )  , 

2  IA(IND(5) ) , IA( IND/6) ) , IC(IND(11) ) ,DY, IV AR) 

CALL  ELP3D(C(IND(16)),A(IND(9)),A(IRD(2)>) 

NMP2-NM+2 

NM2-NM/2 

NM2P1-NM2+1 

NM2P2-HM2P1+1 

NCH-2*NM2P1 

YTOT-NM»DY 

PI-4. 0*ATAN (1.0) 

DM-2.»PI/YTOT 
IF ( INPLOT. EQ.l)  THEN 
WRITE(23,*)NM2P1 ,DY 
ENDIF 

WRITE ( 25 ,*) NM2P1 , DY , NSLCT 
AI-(0 . , 1 . ) 
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CALL  YLQAD(C(IND(17) ) ,DY,NM) 

CALL  F0UR2(C<1ND<17)),NM,1,-1,1) 


R£AD(5,*)XL,XR 
WRITE (NTAPEO, 80)  XL,XR 

80  F0RMAT(//  ,1X,  'Left-most  »c«nt  of  load  In  x-dlreetlon  -  ’,F7.2 ,/, 
2  IX, ’Right-nmst  oxtont  of  load  In  x-dlractlon  -  ’ ,F6.2 ,//) 


Bagln  Do  loop  for  aach  frequency  (rada/aac)  of  Interest 

CALL  DNIS016YF 
DO  100  IF-l.HF 
DO  101  1-1,51* 

DO  101  J-1,3000 
101  CW(I,J)«(0.,0.) 

0M-2.*PI*FR(IF) 

WRITE (6, 105)  OM.FRUF) 

URITE(22, 105)  0M,FR(IF) 

IF ( INPLOT. EQ.l)  THEN 
WRITE<23,*)  0M 
END  IF 

WRITE(2S,*)  FR(IF) 

105  FORMAT  ( IX,  ’FREQUENCY-  '.F6.2,'  rada/aac  -  '.F6.2,’  Hr’,/) 

Bagln  DO  loop  for  aach  vavanumbar,  m  (y-diractlon) 

Since  tha  loading  and  geometry  ara  symmetric  about  y-0, 
tha  displacements  in  tha  apaca  domain  ahould  be  aymnetric 
about  y-0 .  Therefore,  only  non-negatlva  vavenumbera  need 
be  conaidered  and  negative  vavenumbera  will  be  duplicated 
later. 

CALL  XLOAD(A(IND(l)),IA(IND(7)),XL,XR,HUMEL.C(IND(15))) 

IF  (INPLOT.  EQ.l)  THEN 
NRITE(23.*)XL,XR 
ENDIF 

WRITE (25, *)XL,XR 
DO  20C  IM>1,NM2P1 

Read  load  information  in  x-direction  l  calculate  nodal  forces 

TM-(IM-1)*DM 
AI1-AI*TH«DY 
E1-CEXP(-1.*AI1) 

E2-CEXP(AI1) 

Create  load  vector 

REWIND  10 
REWIND  12 
DO  210  I-l,HDOFT2 

WRITE<12)  C(IND(15)+I-1)*C(IND(17)+IM-1) 

210  CONTINUE 

CALL  STIFF(A(IND(1) ) , IA(IND(3) ) , IA( IND( 7) ) , 

2  IA(IND(8) ) , C(IND( 16) ) , A(IND(9) ) , A( IND(2) ) , 

3  NUMEL.0M.E1  ,E2,  IM) 

IF ( INCHECK . EQ . 0 )  STOP 
REWIND  10 
REWIND  12 

CALL  PREFNT(NNE2,IC(IND<11>)  ,MS,MU,KR) 

Solve  for  maximum  aaq>litudes  at  each  node  -f(x,m,x,om) 

CALL  SOLVE(C(IND(13)),IM) 

Store  amplltudea  at  aelect  nodea  for  inverae  FFT 
C  (Alvaya  atore  HSLCT  plua  necessary  values  for  dviev) 

C 
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K-0 

DO  500  J-l.NSLCT 

K-X+l 

CW(IM,K)-C(IND(1*)+3*(IA(IND(5)+J-1)-1)+IA(IND(6)+J-1>-1) 

CONTINUE 

IF(INPLOT.EQ.l)  THEN 
DO  501  J-1.2+NELX+1 
K-K+l 

CW(IM,X)-C(IND(1*)+3»(J-1>)  I  X 

K-X+l 

CW(IM,K)-C(IHD(14)+3*(J-1>+1>  1  V 

CONTINUE 

ELSEIFC  INPLOT.  EQ.  2)  THEN 
DO  502  J-1,NNT2 
K-K+l 

CW(IM,K)-C(IND(1*)+3*(J-1))  I  X 

K-K+l 

CW(IM,K)-C(IND(l*)+3«(J-l)+2)  I  Z 

CONTINUE 

ELSEIFC INPLOT. EQ. 3)  THEN 
DO  503  J-1,2*NELZ+1 
K-K+l 

CW(IM,K)-C(IND(1*)+3*(1+M0D((J-1),2)*(2*NELX+1) 

+(J/2)»(3*NELX+2))+l)  I  Y 

K-K+l 

CW(IM,K)-C(IND(1*)+3*(1+M0D( (J-l) ,2)*C2*NELX+1) 

+(J/2)*(3*NELX+2) )+2)  I  Z 

CONTINUE 

ENDIP 

NIPTS-K 

CONTINUE 

Calculate  complex  amplitudes  at  each  node  -  f (x.y.x.om) 

WRITE ( NTAPEO ,  *01)FR(IF) 

FORMAT  Of.'  •••••OUTPUT  (DISPLACEMENTS )',//, 

IX. 'CALCULATED  AMPLITUDES  AT;  >,F8.2,’  Be’) 

FACT-1. /FLOAT(NM) 

F2-180./PI 

Begin  loop  to  IFT  displacements  for  each  node  of  lntereat 

DO  600  I-l.NSLCT 
DO  601  11-1,51* 

CWIM(II)— <0.  ,0.  ) 

Duplicate  amplitude*  for  m'a  from  0  to  NM2P1  (negative  m’s). 

DO  620  IM-NM2P2.NM 
IIM— NCH-IM 
CW(IM.I)— CW(IIM.I) 

DO  625  IM-l.HM 
CWIMCIM)-CW(IM.I) 

Inverse  FFT  leaving  amplitude*  complex. 

CALL  FOUR2(CWXM,HM,l,+l,l) 

WRITE (NTAPEO, 635)  IA<IND(5)+I-1) , 

R£AL(A(IND(l)+( IA(IND(5)+I-l))#3-3)), 
REAL(A(IND(1)+(IA(IND(5)+I-1))«3-1)) 

IF( IAC IND(6)+I-1 ) .EQ.l)  WRITE (NTAPEO, 627) 

IF(IA(IND(6)+I-1) . EQ.2)  WRITE ( NTAPEO , 628 ) 

IF(IA(IND(6)+I-1) . EQ . 3 )  WRITE (NTAPEO, 629) 

WRITE(HTAPEO,  636) 

WRITE(25,»)  IA(IND(5)+I-1), 

R£AL(A(IND(1)+(IA(IND(5)+I-1) )*3-3) ) , 

REAL(A(IND(1 )+(IA(IND(5)+I-l ) )*3-l ) ) , 

IA(IND(6)+I-1) ,IVAR(I) 
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DO  6*0  IM-1.NM2P1 
Y-(IM-1)*DY 
CWIM/IM)— FACT*CWIM(  IM) 

AMPL— SQRT/REAL/CWIM/IM)  )**24AIMAG(CWIM(IM)  )**2) 

PHAS— ATAN2/AI  MAG/ CWIM(  IN)  )  ,REAL(CWIM(  IM) )  )*F2 
WRITE/25,645)  Y,CWIM(IM) .AMPL.PHAS 
WRITE/NTAPEO,  6*5)  Y, CWIM/IM)  .AMPL.PHAS 
IP(IVAR(I)  .EQ  O)  COTO  6*1 
6*0  CONTINUE 

6*1  CONTINUE 

600  CONTINUE 

627  FORMAT (  /  ,  IX ,  ’VARIATION  OP  HORIZONTAL  X  COMPONENTS  IN  Y  ' , 

4  ‘DIRECTION:1,/) 

628  FORMAT//, IX, ‘VARIATION  OP  HORIZONTAL  Y  COMPONENTS  IN  Y  ’ , 

4  ‘DIRECTION: ‘./) 

629  FORMAT//, IX, ‘VARIATION  OF  VERTICAL  ZZ)  COMPONENTS  IN  Y  * , 

4  ‘DIRECTION:’,/) 

635  FORMAT///,' - - - 

4  /,1X, ‘AMPLITUDES  CORRESPONDING  TO  NODE:  ‘,15 ,/, 

4  3X,‘/X-  *  ,E10.3,  '  )  ZZ-  ‘  ,  E10 . 3 ,  ’  )‘> 

636  FORMAT/1X, *  Y 

4  IX, ‘  REAL  PART  ‘ , 

4  lX.’IMAG.  PART  *, 

4  IX, ’  MAGNITUDE  ’, 

4  IX,*  PHASE  *) 

6*3  FORMAT/ 5 Z2X.E10 . 3) ) 

Begin  loop  Co  I FT  displacements  for  dviev 

DO  700  I— RSLCT41 , RIFTS 
DO  701  11-1,31* 

701  CVIM/II)— Z0.,0.) 

Duplicate  aoplltudes  for  a’s  from  0  to  NM2P1  (negative  m’s). 

DO  720  IH-HH2PZ ,  KM 
IIM— NCH-IM 

720  CW/IM, I)— CW/IIM, I ) 

DO  725  IH-l.NM 
725  CWIM/IM)— CW/IM,I) 

Inverse  FFT  leaving  aoplltudes  coop lex. 

CALL  F0UR2/CWIM.RM, 1,41,1) 

WRITE/23 ,*)IA(IND( 5)41-1 ) , 

4  REAL/A/IND(l)4/IA/IND/5)4l-l))*3-3>). 

4  REAL/A/ IND/1)4/IA(IND/ 5)41-1) )*3-l) ) 

DO  7*0  IM-1.NM2P1 
Y-(IM-1)*DY 
CWIM/IM)— FACT*CWIM(IM) 

AMPL-SqRT /REAL ( CWIM ( IM) ) **24AIMAG ( CWIMZ IM) ) **2 ) 

PHAS— ATAN2/AIMAG /CWIM/IM)  )  .REAL (CWIM/IM)  )  )*F2 
WRITE/23, 6*5)  Y, CWIM/IM) , AMPL.PHAS 
IF ( INPLOT. EQ. 2)  COTO  7*1 
7*0  CONTINUE 

741  CONTINUE 

700  CONTINUE 
100  CONTINUE 

CLOSE  / 15, STATUS-’ KEEP ’ ) 

CLOSE  (16, STATUS- ‘KEEP’) 

CLOSE  (NTAPEO, STATUS— ‘KEEP’ ) 

CLOSE  (22, STATUS— ‘KEEP* ) 

CLOSE  (23, STATUS- ‘KEEP’) 

CLOSE  (23, STATUS- ‘KEEP’) 

STOP 

END 


Cll 


non 


C********************  NODE  l  ELEMENT  I/O  SUBROUTINE  •*****••••»******»* 

C 

SUBROUTINE  DATAIN(NUMEL,X.  ICONN .  IS, MAT. NS,  IDIR,  IPREP.DY ,  IVAR) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  C 
C  Subroutine  DATAIN  read*  In  boundary,  nodal,  and  element  data.  C 
C  C 
C  Subroutine  DATAIN  1*  called  by  :  MAIN  C 
C  C 
C  Subroutine  DATAIN  make*  no  external  calls.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DIMENSION  X(3,NN),IS(3,NN), ICONN  ( 16  ,NUMEL)  , MAT ( NUKEL ) 

DIMENSION  IDIR(SO) , IVARC50) 

DIMENSION  NSU),IPREP<1) 

COWON  /COHDS/  HNE2 ,  NDOFN2 ,  NNT2 ,  ND0FE2 ,  NDOFT2 
COWON  /INTO/  NN, NOMAT , NT, NSLCT ,  INOUT ,  INPLOT 
COMMON  /MAX/  XMAX.ZMAX 
COMMON  /MESH/  NELX,NELZ 
COtWON  /UNIT/  NT  APE ,  KTAPEO 
XZERO-O 
DO  5  I-l.NN 
IS(2,I)-0. 

DO  5  J-l,  3 
5  IS(J,I)«IZERO 

IF C INOUT. EQ.l)  WRITE (NTAPEO, SO) 

SO  FORMAT( /,  IX, ’MODAL  COORDINATES’,//, 

2  3X, ’NODE’ , 9X, ’X’ ,1*X, ‘ Y* , 1*X, ’ Z ' . 8X, ’ IS1 ’ , 3X, ’ IS2 ’ , 

3  3X,’IS3 ’,//) 

C 

ZMAX-0. 

DO  *00  I-1.NNT2 

READ(5,*)X,X<1,I).X(3,I).IS(1,I),IS(3,I) 

X(2,I)-0. 

IF(K.NE.I)  THEN 
WRITE(6, *02) 

STOP 

ELSE 

ENDIF 

ZMAX-MAX(  ZMAX, X(  3 , 1 )  ) 

*00  CONTINUE 
C 

C  Duplicate  face  of  nodes  at  y— dy 
C 

DO  *10  1-1 ,NNT2 
II-I+NNT2 
X(1,II)-X(1,I) 

X(2,II)«-DY 

X(3,II)-X(3,I) 

*10  CONTINUE 


Set  boundary  conditions 


DO  *20  I-l.NN 

IF(ABS(X(3 , I)-ZMAX) .LT.O .01)  THEN 
IS(1,I)-1 
IS(2,I)-1 
IS(3,I)-1 
ELSE 
ENDIF 

*20  CONTINUE 

IF (INPLOT. EQ.l)  THEN 
DO  *25  I-1.NNT2 

WRITE/23 , »)I ,X(1 , I) ,X(3,I),IS(1,I),IS(3,I) 

*25  CONTINUE 
ENDIF 

IF ( INOUT .EQ. 1)  THEN 
DO  *30  I-l.NN 

*30  WRITE(NTAPEO, *01)  I , <X( J, I) , J-l , 3) , (IS( J, I) , J-l , 3) 


C12 


ELSE 

ENDIF 

401  FORMAT(2X,I5,3(3X,E12.4),3(3X,I3)) 

402  FORMAT (//, IX, ’ERROR:  SUBROUTINE  DATAIN' , / , 

2  ‘  MOOES  NOT  IN  SEQUENTIAL  ORDER*,//) 

C 

C  Nodes  of  Interest  (lacreulni  order) 

C 

URITE(NTAPEO,60) 

60  FORMAT  (/,  IX, ’NOOES  OF  INTEREST:*,/) 

DO  499  I-l.NSLCT+7 
499  NS(I)-0 

DO  500  I-l.NSLCT 

READ(5,*)  NS(I) , IDIR(I) , IVAR(I) 

300  CONTINUE 

DO  510  I-l.NSLCT, S 

510  WRITE ( NTAPEO , 501 )  (NS(J) , J-I . 1+7) 

501  FORMAT  (IX, 816) 

READ(5,*)  NELX.NELZ 
C 

C  Eleaent  Connect Lett lea 
C 

IF(lNOUT.EQ.l)  WRITE (NTAPEO, 105) 

105  FORMAT (IX,  /  /  /  ,  IX,  ’CONNECTIVITIES*  ,  /  ) 
IF(IHOUT.EQ.l)  WRITE (NTAPEO, 107 ) 

107  FORMAT(lX,  /  ,  SOX,  * - ELEMENT  NUMBERING - ’) 

IF(INOUT.EQ.l)  WRITE  (NTAPEO,  109) 

IF ( INOUT . EQ ■ 1 )  WRITE (NTAPEO, 110)  (J,J-1,8) 

109  FORMAT  (7X, 'MAT.') 

110  FORMAT(lX,  ’ELEM*  ,2X,  'TYPE*  ,2X,  'NODES:  *  , IX, 816) 

IF ( INOUT. EQ. 1)  WRITE (NTAPEO, 111) 


111  FORMAT(lX,  •*•***, 2X.  **•*•*, 2X, 

2  • eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee ' ,  /  > 


DO  200  IEL-l.NUMEL 

READ(S,*)K,MAT(IEL)  ,  (ICONN(  J,E) ,  J-1,8) 

DO  210  J-9,16 

210  IC0NN(J,E)-IC0NN(J-8.E)TNNT2 
IF(K.NE.IEL)  THEN 
WRITE (6, 201) 

STOP 

ELSE 

ENDIF 

IF  ( INOUT .  EQ .  1 ) 

2  WRITE  (NTAPEO,  202)  IEL,HAT(IEL>  ,  (I  CONN  ( J,  IEL)  ,  J-l  ,8) 

IF ( INOUT . EQ. 1 )  WRITE (NTAPEO, 203)  (ICOHN( J, IEL) , J-9, 16) 
IF ( INPLOT. EQ.l)  THEN 

WRITE(23,202)  IEL, MAT (IEL) , 

2  ICONN(l , IEL) , ICONN( 3 , IEL) ,ICOHN(8, IEL) , ICONN(6 , IEL) 

ENDIF 

200  CONTINUE 

201  FORMAT (//, IX, ’ERROR:  SUBROUTINE  DATAIN',/, 

2  ’  ELEMENT  CONNECTIVITY  NOT  IN  SEQUENCE’,/) 

202  FORMATdX,  13, 3X,I3, 10X.8I6) 

203  FORMAT(20X,8I6) 

C 

C  Old  Subroutine  PREP 

C  Fl»  to  8  for  16-node  eleaent  In  2-D 

C 

L— 0 

DO  120  IEL— 1 .NUHEL 
DO  115  J-1.NNE2 
L— Lei 

NODE— ICOHN( J, IEL) 

IPREP(L)-10*NODE+3 
113  CONTINUE 
C 

120  CONTINUE 
RETURN 
END 
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SUBROUTINE  ELP3D(D.RO,G) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


c  c 

C  Subrout ina  ELPJD  i«  uaad  to  rood  and  (tor*  material  information.  C 

C  C 

C  Subrout ina  ELP3D  ia  cal lad  by;  MAIN  C 

C 

C  Subrout ina  ELP3D  makaa  no  asternal  eaiia. 

C  C 


ccccccccccccccccccccccccccccccccccccccc 

DIMENSION  RO(NOMAT)  ,G(NOMAT) ,  MCHX  ( NOMAT ) 

REAL  DAMP, PR 

COMPLEX  D( 3, MOMAT),GC,DAMPC,Z. FACTOR 
COMMON  /INFO/  NN, NOMAT, NF, NSLCT,  INOUT ,  IHPLOT 
COMION  /UNIT/  NT  APE ,  NTAPEO 
Z-(0.,0.) 

WRITE  (  NTAPEO ,  100  ) 

WRITE( NTAPEO, 101) 

100  FORMAT (  /  / ,  ’ *****MATERIAL  PROPERTIES  ;  *,/) 

101  FORMAT(T13, a  SHEAR’  ,T28,  ’POISSONS’  ,T*3,  ’DAMPING’  ,T60,  ’MASS’  ,/, 

2  T2, ’MAT’ ,T12, ’MODULUS’ ,T29, ’RATIO’ ,T**, ’RATIO’ ,T58, ’DENSITY’ , / , 

3  T2 , ' *»* * , T10 , ’ ********•••' , T28 , ’ ******* ’ , T* 3 , ’ ******* ’ , T58 , 

*  ’ ******* ’ ) 

C 

DO  50  1-1,  NOMAT 

READ(5,*>  K,G(I) ,PR,DAMP,RO(I) 

MCHX(I)*M 
IF(I.CT.l)  THEN 
DO  51  J-1,1-1 

IF(M.EQ.MCHX(J)>  THEN 

WRITE  (NTAPEO,*)  ’ERROR  IN  ELP3D:  MATERIAL  NUMBERING’ 

ENDIF 

51  CONTINUE 
ENDIF 

WRITE  (NTAPEO,  102)  M,G(I)  ,PR,DAMP,RO(I) 

102  FORMAT(T2,I3,r».E12.5,r30,r*.2,r4i,F4.2,r58,F6.2) 

Chooaa  form  of  damp ina 

DAMPOCMPLX ( 1 .  ,2.*DAMP) 
c  DAMPC-CMPLX(1.-2.*DAMP**2.  ,2 .  *DAMP*SQRT(1 . -DAMP*»2 .  )  ) 

COC(I)*DAMPC 
FACTOR-2 .  *GC/  ( 1 .  -2 .  *FR) 

D(  1  ,M)-FACTOR*(  1 .  -FR) 

D(2,M)-FACT0R*PR 
D<3,M)^C 
50  CONTINUE 

IF(INOUT.EQ.O)  WRITE (NTAPEO,*) 

IF( INOUT. EQ.l)  THEN 
DO  60  I— 1 , N0MAT 

WRITE (NTAPEO, 190)  I 

190  FORMAT///, IX,  ’THE  D  MATRIX  FOR  MATERIAL  ’,13,’  IS:  ’,/) 

WRITE (NTAPEO, 210)  D(1 , I) ,D(2, I) ,D(2 , I) ,Z , Z , Z 
WRITE (NTAPEO, 210)  D(2, I) ,D(1 ,1} ,D(2 , I) , Z , Z , Z 
WRITE (NTAPEO, 210)  0(2, I) ,D(2 , I) ,D< 1 , I) , Z, Z , Z 
WRITE (NTAPEO, 210)  Z, Z,Z,D(3 , I) , Z . Z 
WRITE (NTAPEO, 210)  Z ,Z , Z , Z ,D(3 , I) , Z 
WRITE (NTAPEO, 210)  Z , Z , Z , Z , Z ,D(3 , I) 

210  FORMAT(1X,6(’(’,E10.3,’  +' ,E10 . 3, ’ l) ’ , 2X) ) 

60  CONTINUE 
ELSE 
ENDIF 
RETURN 
END 
C 
C 
C 


C1U 


a  o 


ono  nno  oooooooooonnon 


MATRIX  SUBROUTIEES  a***************************** 
C 

SUBROUTINE  XLOAOCX,  I  com*  ,XL  ,XR ,  NUMEL ,  CPD) 

cccccccccccccccccccccccccccccccccccc 


c  C 

C  Subroutine  XLQAD  1*  used  to  quantify  tho  eatent  of  the  dlstrl-  C 
button  of  load  In  tho  s-dlswnslon.  Tho  oatont  is  opocifiod  C 
by  ond points  tiswlni  uniform  distribution  botwoon  the  C 

endpoints.  C 

C 

Nodal  forces  are  calculated  ONLY  for  a  2-D  plane,  the  central  C 
plane  of  the  ansh  (automatic  condensation).  C 

C 

Subroutine  XLOAO  is  called  by:  MAIN  C 

C 

Subroutine  XIQAD  makes  no  asternal  calls.  C 

C 

Subroutine  checked  ok  for  uniform  loads  12/18/90.  C 

C 


ccccccccccccccccccccccccccccccccccc 

DIMENSION  X(3,NN)  ,  ICONN  (16,  NUMEL)  ,PD(NDOFT2) 

COMPLEX  CPDCNDOPT2) 

COMMON  /CONDS/  HNE2 ,  NDOFN2 ,  NNT2  ,  HDOFE2  ,  NDOFT2 
CObMON  /INFO/  NN, NOMAT, NF.NSLCT.INOUT,  IHPLOT 
CObMON  /MESH/  NELX.NELZ 
CObMON  /UNIT/  NT  APE ,  NTAPEO 
NUKEL2-NUMEL/2 
DO  10  1-1.NDOFT2 
CPD(I)-(0. ,0. ) 

10  PD(I)-0. 

Find  the  ranee  of  elements  affected  by  load  in  a-dlrectlon 


NELFT-0 

NELRT-0 

IF(ABS(XL-XR). LT. 0.0001)  THEN 

Point  load  (atatch  to  closest  node) 

DO  95  I-l.NELX 

UNITE (22,*)  'DO  93,  POINT  LOAD’ 
NDOFCHT-(I-l)«2* 

IP(X(1 , ICONN(6 , I ) ) . GE.XL)  THEN 
XRP-X{  1 ,  ICONN  (  6 , 1 )  )  -XL 
XCP-ABS(X( 1 , ICONN ( * , I ) ) -XL) 

XLP-XL-X( 1 , ICONN ( 1 , I ) ) -XL 
IF(XRF.LE.XCP.AND.XNP.LE.XLP)  THEN 
IFIX«IC0NH(6,I) 

NELFT-I 

NELRT-I+1 

PD(NDOFCNT+18)-l./2. 

PD(NDOFCNT+27)-l./2. 

ELSEIF  (XLP .  LZ .  XCP .  AND .  XLP .  LE .  XRP )  THEN 
IFIX-ICONN(l,I) 

NELFT-I-1 

NELRT'I 

PD(NDOFCHT+3)»l./2. 

IF(NDOFCNT+3 . LE .6)  PD(NDOFCNT+3)-l . 0 
PD(NDOFCNT-6)-l. /2. 

ELSEIF (XCP. LT.XLP.AND.XCP.LT. XRP)  THEN 
IFIX»ICONN(*,I) 

NELFT-I 

NELRT-I 

PD(NDOFCHT*12)-l. 

ENDIF 
GOTO  96 
ENDIF 

95  CONTINUE 

96  CONTINUE 
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NKLLD-HELRT-NELFT+1 

WRITE(6,*) ’pOINT  LOAD  AT  MODE :  *,IFIX 
WRITE (MTAFEO,*)  ’POINT  LOAD  AT  MODE:  MFIX 
ELSE 
C 

Distributed  load 

WRITE (22,*) ’DISTRIBUTED  LOAD’ 

WRITE  (MTAFEO,*)  'DISTRIBUTED  LOAD’ 

DO  100  I-l.NELX 

WRITE(22,*)*DO  100‘ 

IF (NELFT .  EQ.  0 .  AMD  .X(l , I COHN (6, I ) ) .GE .XL)  HELFT-I 
IF(MELFT.ME. 0 . AND .X( 1 , ICONM(6 , I ) ). CE .XR)  THEN 
NELRT-I 
GOTO  101 
ELSE 
ENDIF 

100  CONTINUE 

101  CONTINUE 
NELLD— HELRT-NELFT+1 

Calculate  nodal  force* 

I  COUNT  -NELFT  - 1 
XEND-XL 

DO  200  I-ICOUNT+1 , ICOUNT+NELLD 
NDOFCNT-(I-l)*2* 

EW-X<l.ICONN(6,I))-X<l,ICONH(l,I)) 

EWL-X  <  1 , 1  CONN  (  * ,  I )  ) -X  <  1 , 1  CORN  ( 1 , 1 )  ) 

EWR-X  (1 . 1  CONN  (  6 , 1 )  )  -X  ( 1 , 1  COHN  ( *  ,  I )  ) 

WRITE(22,*)'EW-*,ev 
WRITE  (  22  ,*)•  KWL-  • .  EWL 
WRITE  <  22,  *),EWR-1  ,EWR 

IF(I.EQ.ICOUNT+l .OR. I. EQ. ICOUNT+NELLD)  THEN 

End  element (a) 

WRITE (22,*)  ’  END  ELEMENT* 

IF(X(  1 ,  ICONN(*  ,  I)  )  . EQ.XEND)  THEN 
WRITE(22,*)*  center  node* 

C 

C  At  center  node 

C 

ETA-0. 

ELSEIF (XEND  .LT.X(  1 ,  ICONN (4,1)))  THEN 
WRITE (22,*) *  left  aegaant’ 

C 

C  In  left  aegaent 

C 

IF  ( NELLD.  EQ.1)X£MD-XR 
ETA- (XEHD-X( 1 , ICONN ( * , I ) ) ) / 

2  <X(l.ICONN(*,I))-X(l,ICONN(l,I))) 

ELSE 

WRITE(22,*)*  right  aegmenf 

C 

C  In  right  aegment 

C 

ETA— (XEND-X(1 ,  ICONN(* ,  I )  )  )/ 

2  <X(1 ,  ICONN(6 , 1 ) )  -X(  1 ,  ICONN(  *  ,  I) )  ) 

ENDIF 

WRITE(22 ,*) '  ETA-’, eta 

IF ( NELLD. EQ. 1 )  XEND-XR 

IF(ABS(XR-XEND) -LT.0.1 .OR. (NELLD . EQ . 1 .AND .ETA. LT . 0 . ) )  THEN 
WRITE(22,*)'  force*  for  right  end  element’ 

C 

C  Forcea  for  right  end  element 

C 
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IF  (  ETA .  LT .  0 .  )  EWR-EWL 

PD ( HDOFCHT+3 ) - ( < 1 . / 6 . *ETA**  3 .  )  -  ( 0 . 2S*ETA**2 .  >  >  *EWR 
2  +S./12.«EWL 

PD(HDOFCHT+12)“(ETA-(l .  / 3  .  *ETA**3 .  ) )*EWR+2 .13.  *EVL 
PD(HDOFCin,+ia)-(  <1 .  / 6 .  *ETA**3 .  >♦  ( 0 . 25»ETA**2 .  )  ) *EWR 
2  -1. /12.*EWL 

£LSEIF(ABS(XL-XEHD).LT.0.1.0R. (HELLO . EQ. 1 .AHD .ETA. GT . 0 . ) ) 
2  THEN 

WRITE (22,*) ’  force*  for  loft  end  element* 

Force*  for  left  end  element 
IF(ETA.GT . 0 . )EWL“EWR 

PD  (HDOFCHT+3  )—  (  ( 1 .  /  6 .  *ETA**3 .  )  -  (  0 . 25*ETA«*2 . )  )  *EWL 
2  -l./12.*EWR 

PD(HD0FCHT+12)— (ETA-  (1 . 13.  *ETA»*3  .  ) )*EWL+2 .13.  *EWR 
PD(MD0FCHT+18)— ((l./6.*ETA**3.)+(0.25*ETA**2.))*EWL 
2  +i./12.*EWR 

EHDIP 
XEHD-XR 
ELSE 

WRITE(22,*)'  force*  for  center  eleeMnt* 

Center  element 

PD(HD0PCHT+3)— 1 .112. «EVR+5 .112. *EVL 
PD ( HDOFCHT+12) -2 . / 3 . «EWR+2 .  /  3 .  «EWL 
PD (HDOPCHT+18) .112. «EWR-1 .112. *EWL 
EHDIP 

200  COHTIHUE 

201  COHTIHUE 
EHDIP 

Write  load  -vector  to  fort. 22  for  optional  inspection 

IF  ( IHOUT .  EQ .  1 )  TBEE 
WRITE ( HTAPEO, *) 

WRITE (HTAPEO, *) *HELPT-  ' , HELPT 
WRITE  (HTAPEO,*)  'HELRT-  *  .HELRT 
WRITE (HTAPEO,*) 

WRI TE( HTAPEO , *) 'Humber  of  eleeMnt*  in  x-direction  ’, 

2  'affected  by  load:  ’,nalld 

EHDIP 

WRITE(22,301) 

DO  300  I-1.HDOFT2/3 

IF(ABS(P0(3*I-2)).CT.1.E-3.0R.ABS(PD(3»I-1)).GT.1.E-5.0R. 

2  ABS(PD(3*I)).CT.l.E-5) 

3  WRITE (22, 302)  IHT(PLOATd) (PLOAT(HHE2)  )+l , 

*  IHT(PLOAT(HOO(I ,HHE2) )), PD (3*1-2), PD (3*1-1), PD (3*1) 

300  COHTIHUE 

301  FORMAT(/ , IX, 'Hon-aero  nodal  forces  (from  XLOAD ):’,//, 

2  IX,*  ELEM  HOOE*  ,  13X,  *X*  ,  16X,  *T*  ,16X,  *2*  ,/) 

302  F0RKAT(1X,I6,1X,I6,3(3X,F12.5)) 

399  COHTIHUE 

DO  *00  I-1.HDOPT2 
*00  CPD(I)-CMPLX(PD(I)) 

RETURH 

EHD 


C 
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SUBROUTINE  YLOAD ( CFOR , DY , NM ) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


c  C 

C  Subroutine  YLOAD  i<  used  to  quantify  the  extent  of  the  distrl-  C 
C  button  of  load  in  the  y-diaansion.  The  load  i*  assumed  to  be  C 
C  symmetric  (centered  about  the  x-axis).  C 
C  C 
C  At  present,  the  load  ii  assumed  to  be  C 
C  constant  over  a  distance  YLDIS  from  the  line  of  symmetry  C 
C  C 
C  Subroutine  YLOAD  is  called  bp:  MAIN  C 
C  C 
C  Subroutine  YLOAD  Bakes  no  external  calls.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DIMENSION  FM(NM) 

COMPLEX  CF0R(NM+2) 

COWON  /INFO/  HN, NOMAT  ,NF,NSLCT ,  INOUT ,  INPLOT 
COMMON  /UNIT/  NT  APE ,  NTAPEO 
READ(5,  *>PMAG,  YLDIS 
YTOT-DY*FLOAT(llN) 

WRITE (25,*) YLDIS 
C 

C  Define  distribution  of  loads  is  y-direction. 

C  At  present,  uniform  load:  load  duplicated  at  end  of  y-space 

C 

IF(YLDIS.LE. 0.0001)  THEN 
DO  SO  I-l.NM+2 
SO  PM(I)-0. 

PM(1)-PMAG 
DO  60  I-l.NM+2 
60  CFOR(I)— CMPLX(PM(I)  ) 

ELSE 

ICOUNT— 0 
DO  100  I-l.NM+2 

IF((I-I)*DY.LE. YLDIS)  THEN 
ICOUNT— I COUNT+1 
PM(I)— PMAG 
ELSE 

PM(I)— 0 . 

END  IF 

100  CONTINUE 

DO  200  1-1, ICOUNT- 1 
J-HH+l-I 
PM(  J)— PMAC 
200  CONTINUE 

DO  300  1-1,101 
C 

C  THE  FOLLOWING  LINE  IS  USED  ONLY  WHEN  CONSIDERING 
C  NORMALIZED  LOAD  (TOTAL  LOAD  -  1)J1 
C 

PM ( I ) -PM ( I ) / ( 2 . * ( FLOAT ( I COUNT - 1 ) ) + 1 . ) 

300  CFOR(I)-CMPLXCPM(I)) 

CFOR(NM+1)-(0. ,0.) 

END  IF 

WRITE (NTAPEO, 301) 

301  FORMAT (//.••••••LOADS:',//, 

1’  SUBROUTINE  YLOAD  ASSUMES  THAT  A  NORMALIZED  LOAD  IS  BEING  USED!’, 

2  /) 

RETURN 

END 

C 

C 

C 


C18 


o  o  o  ooo  onooo 


SUBROUTINE  STIFF(X, IS, IC0NN,MAT,D,ELR0,ELG,NUMEL,0M,E1 ,E2, IM) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  C 

C  SUBROUTINE  STIFF  FORMS  THE  STIFFNESS  MATRIX  AND  ADJUSTS  THE  RHS  C 

C  VECTOR  TO  ACCOUNT  FOR  BOUNDARY  CONDITIONS.  C 

C  C 

C  Sine*  elements  adjacent  in  the  y-diractlon  have  the  same  stiff-  C 

C  ness,  the  stiffness  matrices  for  one  front  sat  ara  calculated.  C 

C  Than  in  CONDENSE,  the  stiffness  matrices  of  the  two  elements  C 

C  adjacent  in  the  y-d tract ion  are  combined .  C 

C  C 

Subroutine  STIFF  is  called  by  :  MAIN  C 

C 

Subroutine  STIFF  calls:  MOOIF,  IS016,  l  CONDENSE  C 


C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DIMENSION  X(3,HN),Y(3,16),  ICONN(16,NUMEL)  ,MAT(NUMEL) ,  IS(3  ,NN) 
DIMENSION  ELRO(HOMAT)  ,ELG( NOMAT) , RHS (18) 

COMPLEX  D(3, NOMAT)  ,DD(6,6)  ,CSM(48,48)  ,CSMC(NDOFE2,NDOFE2)  ,E1,E2 
COMPLEX  CPDEL ( HD0FE2 ) 

COMON  /CONDS/  NNE2 ,  NDOFN2 ,  NNT2 ,  NDOFE2 ,  NDOFT2 

COMION  /INFO/  NN, NOMAT,  HP, HSLCT ,  INOUT ,  IHPLOT 

COMMON  /UNIT/  NT  APE ,  NTAPEO 

REWIND  10 

REWIND  12 

NUMEL2-NUMEL 

DO  10  IEL-1.NUMEL2 

PICK  coordinates  for  element  nodes  from  X  array 

DO  13  J«l,16 

NODE>ICONN(J,IEL) 

DO  13  K-1,3 

Y(K.J)-X(K,NODE) 

13  CONTINUE 

DD  is  material  array  for  specific  elessent 

DO  303  KX-1.6 
DO  303  LL-1,6 
303  DD(KX,LL)-(0. 0,0.0) 

C 

DD(1,1)-D(1,MAT<IEL)) 

DD<1,2)-D(2,MAT(IEL>) 

DD( 1 , 3)»D(2 , MAT(IEL) ) 

DD(2,1)-D(2,MAT(IEL)) 

DD(2 , 2)“D(1 ,MAT(IEL) ) 

DD(2, 3)eD(2,MAT(IEL) ) 

DD( 3 , 1 )-D( 2 ,MAT  t IEL) ) 

DD(3,2)-D(2,MAT(IEL)) 

DD(3,3)-D(1,MAT(IEL)) 

DD(*,*)-D(3,MAT(IEL)) 

DD(5,5)-D(3,MAT(IEL)) 

DD(6,6)-D(3,KAT(IEL)) 

C 

FAOELRO(MATdEL)  )*OM*OM 
CALL  IS016(Y,DD,CSM,RHS,FAC) 

IF(IM.LE.l) 

2  CALL  FRNTRBS ( CPDEL, 2i , IEL, IM, 4 ,ELG(MAT(IEL) ) ) 

DO  301  II-l,NDOFE2 
READ(12)  CPDEL (II) 

301  CONTINUE 
C 

CALL  MOOIPfCSM, IS, CPDEL, ICONN(l, IEL)  ,IH) 

CALL  SYMSM(DUM,CSM,48,  IEL,ELC(MAT(  IEL)  )  ,1,3) 

CALL  C0NDENSE(CSM,CSMC,E1 ,E2 , IM, IEL) 

IF(IM.LE.l) 

2  CALL  PRNTRBS(CPDEL,24  ,  IEL ,  IM,  6 , ELC (MAT(  IEL) ) ) 
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2 


IF(IEL.EQ.2.AND.IM.LE.3) 

CALL  FRNTSM(CSMC,24 ,  IEL, IM,6,ELG(MAT(IEL/ )  ) 

CALL  SYMSM(DUM,CSMC,2*,IEL,ELG(MAT(IEL)),1,6) 

WRITE ( 1 0 ) ( ( CSMC ( I , J ) , 1-1 , J) , J-l , ND0PE2 > , < CPDEL ( I ) , I -1 , NDOFE2 ) 

10  CONTINUE 
RETURN 
END 
C 
C 
C 

SUBROUTINE  MODIF(CSM,  IS, CPDEL,  ICONN ,  IM) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  c 

C  Subroutine  MOO IF  la  uaed  to  modify  tho  atiffneaa  matrix  and  C 

C  RHS  vector  to  account  for  boundary  eonditiona.  The  matrix  C 

C  la  then  checked  for  ayometry.  The  matrix  can  be  printed  if  C 

C  deal red.  The  RHS  vector  la  changed  from  real  to  complex.  C 

C 

Subroutine  MOD IF  i a  called  b7:  STIFF  C 

C 

Subroutine  MODIF  calla:  PRNTSM  (optional)  C 

C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DIMENSION  IS( 3 ,NN) , ICONN (16) 

COMPLEX  CSM(*8,*B)  ,CPDEL(2*) 

COWUN  /BIG/  BIG 

COMMON  /INFO/  NN, NOMAT, NF  ,NSLCT ,  INOUT ,  INPLOT 
COMWN  /MAX/  XMAX.ZMAX 
COMMON  /UNIT/  NT APE , NTAPEO 
K-0 

ICONN  la  with  reapeet  to  an  element 

DO  10  1-1,16 
NODE— ICONN  ( I ) 

DO  10  J— 1,3 
K-K+l 

IF  ( IS  (J,  NODE)  .EQ.  1)  THEN 
CSM(K,K)-CSM(K,K)+BIG 
ELSEIF(IS(J,NODE) .NE.O)  THEN 
WRITE (6, 20) 

STOP 
ELSE 
END  IF 

20  FORMAT (//, IX, ’•••ERROR  IN  MODIF  (with  IS )•*•’,//) 

10  CONTINUE 

No  (jtatic)  forcea 
Zero  body  forcea 

K-0 

DO  25  1-1,8 

NODE— ICONN  ( I ) 

DO  25  J— 1,3 
K-K+l 

IF ( IS( J .NODE) . EQ . 1 )  CPDEL (K) -CPDEL (K)»BIG 
25  CONTINUE 
RETURN 
END 
C 
C 
c 
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SUBROUT  IKE  C0NDENSE(CSM,CSMC,E1  ,12 ,  IM,  1*1) 
cccccccccccccccccccccccccccccccccccc 


c  C 

C  Subroutine  CONDENSE  1*  used  to  derive  en  equivalent  2-D  C 

C  atiifnees  matrix  from  e  three-dimensional  stiffness  matrix.  C 

C  A  16-node  isoparametric  clement  quadratic  in  the  y  and  z  C 

C  directions  and  linear  in  the  x  direction  is  assumed.  C 

C  C 

C  The  BHS  vector  does  not  require  condensation  because  only  C 

C  loads  on  the  central  plane  are  uaed.  C 

C  C 

C  Subroutine  CONDENSE  is  called  by  STIFF .  C 

C 

Subroutine  CONDENSE  makes  no  external  calls.  C 

C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
COWON  I  corns  I  HNE2 .  HD0FN2 ,  HNT2 ,  ND0FE2 ,  ND0FT2 
COMMON  ITOLI  TOLSM 

COMPLEX  CSX ( *8, *8) ,CSMC(NDOFE2,NDOFE2) 

COMPLEX  E1.E2.AI 
DO  10  I-1.NDOFE2 
DO  10  J-1.NDOFS2 
10  CSMC(I,J)-(0.,0.) 

DO  20  I-1.NDOFE2 
II-I+HDOFE2 
DO  20  J-1.NDOFE2 
JJ-J+NDOFE2 

CSMC(I,J)-CSK(II,J)«E2+CSM(I.J)+CSM<II,JJ>+CSM(I,JJ)*E1 
20  CONTINUE 

Make  matrix  symmetric  through  division  and  multiplication  by  i. 

IF(IM.EQ.l)  GOTO  31 
AI-<0.,1.) 

II-l 

DO  *0  I-1.NDOFE2 
JJ-1 

DO  30  J-1.NDOFE2 

IF  (I  .EQ.  11*3-1)  CSHC(I,J)-CSMC<I,J)»AI 
IF(J.EQ.JJ*3-1)  THEN 
JJ-JJ+1 

CSHC(I,J)-CSMC<I,J)/AI 

ENDIF 

30  CONTINUE 
IF(I.EQ.II»3-1)  II-II+l 

40  CONTINUE 

31  CONTINUE 
RETURN 
END 

C 

C 

C 
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ELEMENT  SUBROUTINES 


SUBROUTINE  IS016(Y,D,CSM,RHS,FAC) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

Subroutine  I SOI 6  calculates  the  stiffness  swtrix  for  a  3-D,  C 

16-node  isoparametric  finite  eleaMnt.  C 


Subroutine  IS016 
«en_f 'em . 


alidated  (IS016S)  alon*  with  DNIS016Y  in 


Subroutine  IS016  is  called  bp:  MAIN.  C 

C 

Subroutine  IS016  calls  subroutines:  DNIS016  C 

C 

Variable  list:  C 

C 

AJACS  Volume  of  element  (det.  of  Jacobian)  C 

AN  Interpolation  functions  matrix  C 

ANT  Transpose  of  interpolation  functions  matrix  C 

AUX  Temporary  matrix  of  AUXC  C 

AUXB  Matrices  B  transpose  and  D  multiplied  C 

AUXC  Matrices  B  transpose, D,  and  B  multiplied  C 

AUXR  Consistent  mass  matrix  C 

B  C 

BT  Transpose  of  ???  matrix  C 

C  CSM  Complex  stiffness  matrix  (additive)  C 

C  D  Material  property  matrix  C 

C  DNDXI  Matrix  of  derlv.  of  interpolation  functions  C 

C  with  respect  to  XI  C 

C  RHS  Matrix  of  body  forces  (sero)  C 

C  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
COMMON  / INTERPF /  AN1D(16, 18)  ,DNDXI<3, 16,18)  ,H(1B) 

REAL  Y(3, 16) ,8(6,48), BTC 68, 6) , RHS (48) ,DXX(3,3) ,DXI(3,3) , DNDXC3) 
REAL  AN (3, 48)  ,ANT(48,3)  ,  AUXR (48, 48) 

INTEGER  LOOP3(9) 

DATA  LOOPS  II, 2. 3, 1,2, 3, 1,2, 3/ 

COMPLEX  CSM(4S,48),D(6,6),AUXB(48,6),AUXC(48,48),AUX(48) 

COMPLEX  CSUM 
C 

C  Zero  arrays 
C  RHS-O:  Zero  body  forces 

C 

DO  10  1-1,48 
AUX(I)— (0. ,0. ) 

RHS(I)— 0. 

DO  20  J— 1,6 

AUXB(I,J)-(0.,0.) 

B(J,I)-0. 

20  BT(I,J)-0. 

DO  23  J— 1,48 
AUXR(I,J)-0. 

AUXC( I , J)— (0 , ,0 . ) 

25  CSM(I,J)-(0.,0.) 

10  CONTINUE 
DO  30  1-1,3 
DNDX(I)— 0. 

DO  30  J-1,3 
30  DXI(I,J)-0. 


Loop  on  intesratlon  points  to  create  ele 

DO  1000  IP-1,18 
DO  39  1-1,3 
DO  39  J-1,48 
AN(I,J)»0.0 
ANT( J, I)— 0 . 0 
CONTINUE 
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DO  *0  1-1,16 
X— 3*1 

AH(3,K)-AH1D(I.IP) 

AN(2,K-1)— AH1D(I,1P) 

AN(1  ,X-2)-ANlDd ,  IP) 

40  COMTI HUE 

DO  SO  1-1,3 
DO  SO  J— 1,3 
50  DXX(I,J)-0. 

C 

C  Perform  a  summation  to  get  tha  component!  of  tha 

C  Jacobian  Matrix 

C 

DO  100  IHODE— 1,16 
DO  100  11-1,3 
DO  100  JJ-1,3 

100  DXX(JJ,  II)-DXX(JJ,  ID+DHDXI  dl,  IHODE,  IP)*Y(JJ,  IHODE) 

Calculata  datarmlnant  of  DXX 

SUMP-0. 

SUM4-0. 

K— 1 

DO  120  11-1,3 
K-K+2 

120  SUMP— SUMP+DXX(L00P3(ID , LOOPS (E)  )*DXX(LOOP3 (II+l ) , LOOPS (K+l) ) 

2  *D30C(L00P3CII+2) , LOOPS (K+2)  ) 

DO  130  11-1,3 

130  SUm-SUMffDXX(LOOP3dI),3)*DXX(UX>P3dI-fl),2) 

2  *nXX(L0OP3dI+2),l) 

DET-SUMP-SUm 
AJACS-ABS ( DET ) *U (IP ) 

Calculate  tha  Invar**  of  the  Jacobian  Matrix 

DO  140  11-1,3 
DO  140  JJ-1,3 
FAC2-1 . 

IF<JJ.EQ.2.0R.II.EQ.2)  FAC2— 1. 

IF( JJ.EQ.2.AHD. II .EQ.2)  FAC2-1. 

140  DXI(JJ,II)-(FAC2/DET)*<-1.)**(II+JJ) 

2  *(DXX(LOOP3(II+l)  ,LOOP3(JJ+1)  )*D30C(L00P3(II+2)  ,  LOOP3  (  JJ+2 ) ) 

3  -D30C(L00P3(II+1)  ,  LOOP3(  JJ+2)  )*D30((L00P3(  II+2)  ,LOOP3(  JJ+1)  )  ) 
C 

C  Loop  on  nodes  to  calculata  B  matrix 

C 

DO  19S  KK— 1.3 
19S  DHDX(XK)— 0. 

DO  200  IHODE— 1 , 16 
DO  210  11-1,3 
SUM-0. 

DO  210  JJ-1,3 

SUM-SUM+DXI ( JJ , II ) *DNDXI ( JJ , INODE , IP ) 

210  DNDX(  ID-SUM 
Jl— 3*IHODE-2 
J2-3*IHODE-l 
J3— 3*IHODE 
B(l, Jl)-DHDX(l) 

B(4, Jl>— DHDX(2) 

B(6,J1)-DHDX(3) 

B(2, J2)-DHDX(2) 

B(4, J2)— DHDX(l) 

B(5, J2)-DHDX(3) 

B(3,J3)-DHDX(3) 

B(5,J3)-DHDX(2) 

B(6,J3)-DHDX(1) 

200  CONTINUE 
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DO  35  M-1,3 
DO  55  L-1,48 
55  ANT(L,M)-AM<M,L) 

DO  60  M-1,6 
DO  60  L-1,48 
60  BT(L,M)-B(M,L) 

DO  70  L-1,48 
DO  70  7^1,48 
SUM-0. 

DO  71  H-1,3 

71  SU7MUM+AHT(L,H)*AH(N,7D 

70  AUXR(L,M)«SUM 

DO  80  L-1,48 
DO  80  M-1,6 
CSUM-(0.,0.) 

DO  81  M-1,6 

81  CSUM-CSU7RBT(L,N)*D<N,M) 

80  AUXBa,M)-CSUM 

DO  90  L-1,48 
DO  91  M-1,48 
CSUM— (0.  ,0.  ) 

DO  92  H— 1,6 

92  CSUM— CSUM+AUXB(L,N)*B(N,M) 

91  AUX(M)— CSUM 

DO  90  M-1,48 
90  AUXC(L,M)— AUX(M) 

DO  110  L-1,48 
DO  110  M-1,48 

110  CSM(L,M)-CSM(L,M)+AJACS*(AUXC(L,M)-FAC*AUXR(L,M)) 

1000  CONTINUE 
RETURN 
END 


NUMERICAL  INTERPOLATION  SUBROUTINES 


SUBROUTINE  DHIS016Y? 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


This  subroutine  cslculstss  the  values  of  interpolation  functions 
and  differentiated  interpolation  functions  at  numerical  integration  C 
points .  C 

This  subroutine  uses  Gauss  veisht  factors  for  3  a  3  a  2  integration  C 

C 

This  routine  assumes  the  following  orientation:  C 


- >  +  X 

1 - 4 - 6 

I  I 

\  t  2  (+Y)  7  and 

I  I 

+  Z  3  —  5  —  8 

C 

C  INTEGRATION  POINTS: 

C 

C 


C 

C 

C 

9  —  12  —  14  C 

I  I  C 

10  (-Y)  15  C 

I  I  C 

11  —  13  —  16  C 

C 

C 

C 

C 

C 
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>  +x 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


\  / 
+z 


x  1  >  *  x  7 

x  2  x  3  x  8 

x  3  x  6  x  9 


AMD 


x  10  x  13  x  16 

x  11  x  1*  x  17 

x  12  x  13  x  18 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


Subroutine  DNIS016YF  may  bo  exiled  by:  IS016  C 

C 

Subroutine  DK1SO 16YF  makes  no  reference  calls.  C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
COMOO  /IHTERPF/  AMD(16,18)  ,DRDXI(3,16,18>  ,0(18) 


A-5./9. 


B-8./9. 


M(1)-A*A 

H(3)-0(l) 
0(7)-0(l) 
0(9)-0(l) 
W(2)-A*B 
W(*)-A*B 
0(6)-A*B 
0(8)-A*B 
0(5)-B*B 
DO  10  1-10,18 
10  0(1)— W(I-9) 

C 

L— 0 


Loop  on  Y  (s)  from  positive  to  negative 

STEMP— 1 ■ /SQRT(3 . ) 

RTEMP-SQRT ( 3 . )/SQRT(5. ) 

TTEMP— SQRT ( 3 . ) / SQRT ( 5 . ) 

DO  100  1-1,2 

S-STEMP-FLOAT  ( I -1 )  *2 . 0*STEMP 

Loop  on  X  (r)  froa>  negative  to  positive 


R— 2.*RTEMP 
DO  200  J-1,3 
R-R+RTEMP 

Loop  on  2  (t)  from  negative  to  positive 


T— -2.*TTEKP 
DO  300  K-1,3 
T-T+TTEHP 

L-L+l 

R2-R*R 

T2-T*T 

RT-R*T 

AMD(1,L)-0.125*(1.*S)*(-1.+RT*R2*(1.-T)+T2*(1.-R)) 

AMD(2,L)-0.25*(1.-R)*(1.+S)*(1.-T2) 

AR1DO  ,L)— 0 . 123* (1  . *S)*(-1 .  -RT*R2*(  1  •  *T)+T2*(1 . -R)  ) 
AR1D(*,L)-0.23*(1.-R2)*(1.*S)*(1.-T) 
AMD(S,L)-0.25«(1.-R2)*(1.+S)*(1.+T) 
AR1’)(6,L)-0.123*(1.*S)*(-1.-RT+R2*(1.-I)+T2*(1.+R)) 
AMD( 7,L)-0.23*(1 . *R)*(1  .*S)*(1 .  -T2) 
AMD(lt,L)-0.125*(l.*S>*(-l.+RT*R2*(l.+T)*T2*(l.+R)> 
AN1D(  9  ,L)-0 . 12S*(1 .  -S)*(-l  .♦RT+R2*(1 .  -I)+T2*(l .  -R) ) 
AMD(10,L)-0.25*(1.-R)*(1.-S)*(1.-T2> 
AMD(11,L)-0.125*(1.-S)*(-1 . -RT*R2*( 1 .+T)+T2*(1 . -R) ) 
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AH1D(12,L)“0 . 23*(1 .  -R2)*(l .  -S)*(l .  -I) 
ANlDU3,n-0.25*<l.-R2)*(l.-S)*<l.+T) 

AK1D( 1* ,L)“0. 125*(1 . -S)*(-l . -RT*R2*(1 . -T)+T2*(l .+R) ) 
AN1D(15,I>)“0. 25*(1  .+R)*(1  ■  -S)*(l .  -T2) 

AH1D( 16 ,L)“0 . 125* ( 1 . -S)*(-l .+RT+R2*(1 .+T)+T2*(1 .+R) ) 
C 

dhdxiu,i,l)-o.i25*c2.*r+t)*<i.-t)*<i.+s) 
DHDXI(1,2,L)— 0.25»(1.+S>*<1.-T2) 

DHDXI ( 1 , 3 , L)»0 . 125*(2. *R-T)*(1 .+S)*(1 .+T) 
DNDXI(1,*,L)— R/2.*(1.+S)*(l.-T) 

DHDXI  (1, 5, L)— R/2.*<1.+S)*U.+T) 
DHDXI(1.6,L)-0.125*(2.*R-T)*<l.-fS)*(l.-T) 

DHDXI (1 , 7 ,L)»0. 25*( 1 . +S)*(1 . -T2) 

DHDXI ( 1 , 8 , L>-0 . 125* (2 . *R+T)*(1 . +S)*(1 .+T) 

DHDXI ( 1 , 9 ,L)-0 . 125*(2. *R+T)*(1 . -S)*(l.-T) 

DHDXI  <  1, 10,  L)— 0.23*<1.-S)*(1.-T2) 

DHDXI ( 1 , 11 , L)-0 . 125* (2 . *R-T)*(1 . -S) *(1 .+T) 
DNDXI(1,12,L)— R/2.*(1.-S)*(l.-T) 

DHDXI  <1. 13, L)—R/2.*(1.-S)*(l.+T) 

DHDXI (1 , 1*  ,1,)**0. 123*(2 .  *R-T)*(1 .  -S)*(l . *T) 

DHDXI ( 1 , 15 , L)-0 . 25* ( 1 . -S)*(l . -12) 

DHDXI(1.16,L)-0.125»(2.*R+T>«<1.-S)«(1.-*T) 

DHDXI(2,1,L)-0.125*(-1.+RT+R2*(1.-T)+T2*(1.-R)) 

DHDXI (2 , 2,L)-0 . 25*(1 . -R)*(l . -T2) 

DHDXI(2,3,L)-0.125*<-1.0-RT+R2*U.+T)+T2*(1.-R)) 

DHDXI(2,*,L)-0.25*(1.-R2)*(1.-T) 

DHDXI(2,5,L)-0.25*(1.+T)*<1.-R2) 

DHDXI <2 . 6 ,L)-0 . 123* <  - <  1 . +RT)+R2*<  1 . -T)+T2*<  1 . +R» 
DHDXI(2.7,l,)-0.2S*<l.+R)*Cl.-T2) 

DHDXI ( 2 , 8 , L ) -0 . 1 25* ( - 1 . ♦ RT+R2* { 1 . +1 ) +T2* ( 1 . +R ) ) 
DHDXI<2,9,L)-0.12S*(1.-RT-R2*C1.-T)-T2*(1.-R)) 

DHDXI  (2, 10, L)— 0.23*<1.-R)*(1.-T2) 
DHDXI(2,11,L)-0.12S*<1.+RT-R2*(1.+T)-T2*(1.-R)) 
DHDXI (2. 12, L)— 0.23*<1.-T)*<1.-R2> 

DHDXI(2.13,L)— 0.2S*(1.+T)*(1.-R2) 

DHDXI (2, 14 ,1  )-0 . 125*(1  .+RT-R2*(1 .  -V) -T2*{1 .  *R) ) 
DHDXI(2,13,L)— 0.25*(1.+R)«(1.-T2) 
DHDXI(2,16,I.)-0.125*<1.-RT-R2«<1.+T)-T2*<1.+R>) 
DHDXI (3 , 1 , L)-0 . 123* (2 . *I*R>* ( 1 . *5) • ( 1 . -R) 

DHDXI  (3, 2, L)— T/2.*(1.-R)*(1.*S) 
DHDXI(3,3,L)-0.125*(2.*T-R)*(1.*5)*(1.-R) 
DHDXI(3,*,L)— 0.25*<1.-R2)*(1.+S) 

DHDXI (3 , 5,L)“0 . 25*(1. +S)*( 1 .  -R2) 
DHDXI<3,6,l)-0.125*(2.*T-R)*(l.+R)*(l.+S) 
DHDXI(3.7,L)— T/2.*(1.+R)*<l.+S> 

DHDXI ( 3 , 8, L)-0 . 125*(2. *T+R)« ( 1 . +R)»(1 .+S) 
DHDXI(3,9,L)-0.123*(2.»T+R)*(1.-R)*(1.-S) 

DHDXI  (3, 10,1,)— 1/2.  *(1.-R)*(1.-S) 
DHDXI(3,11,U-0.123*(2.*T-R)*(1.-R)*(1.-S) 

DHDXI (3, 12, L)— 0.25*<1.-S)*(1.-R2> 

DHDXI (3 ,13 ,L)“0 . 25*(1 . -5)*(1 . -R2) 
DHDXI(3,1*.I,)-0.125*(2*I-R)*(1.*R)«(1.-S) 

DHDXI  (3,15,1,)— I/2.*(1.+R)*(l.-S) 
DHDXI(3,16,L)-0.125*(2.*T+R)*(1.+R)*(1.-S) 

300  CONTINUE 
200  COHTIHUE 
100  COHTIHUE 
RETURN 
END 
C 
C 
C 
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c********************  miscellaneous  subroutines  ..•****.**»*♦«***••••• 
c 

SUBROUTINE  DESVEC (NFN.NIN, IPREP, ZB,  ZC) 

c  c ccccccccccccccccccccccccccccccccc 


c 

C  Subroutine  DESVEC  calculates  the  destination  vectors  {roe  C 
C  nichnaaea ■  Arguesant >  NFH,  RIM,  end  errs;  IPREP  (defined  C 
C  in  old  PREP  now  contained  in  DATAIN)  ccan  in.  The  length  of  C 
C  IPREP  (IND(ll) )  is  long  enough  for  IB  end  IC.  C 
C  C 
C  Subroutine  DESVEC  is  celled  by :  PRFNT  C 
C  C 
C  Subroutine  DESVEC  cells  PREOUT.  C 
C  C 
C  All  arguaents  easing  in.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C0M40M  /am/  IS¥M,NUMEL2,  IDUM(24 ) , KDOF , KFW ,  KLDEST 
DIMENSION  ZPREP(l) , IB(1) ,ZC(1) 

C 

C  The  following  ststesent  eppeers  to  be  e  function. 

C  The  calculation  is  not  necessary  for  vlb3  because 

C  the  NDOF  is  always  1. 

C 

MODR(I.J)  -  Z-1/J*J 
MDOF  -  0 
KFW  •  0 
ZDES  -  1 
ZP  -  0 
JDK  -  0 
DO  10  I-l.KFN 
10  ZB(Z)  -  0 

DO  100  IEL-1.NUMKL2 
H  -  HIM 
HT  -  0 
IPS  -  IP 
IPC  -  1 
HE  -  0 
HTT  -  0 
DO  60  ID-l.H 
IP  -  IP+1 
IHIC  -  IPREP  (IP) 

HDOF  -  KOOR  ( IHIC ,  10 ) 

IF (KDOF . HE. 3)  THEN 

WRITE ( 6, PROBLEM  WITH  NDOF  IN  DESVEC  (  HE.  3)’ 

STOP 

ELSE 

ENDIF 

HT  -  HT+HDOF 

IF(IB(IP)  ,6T.  0)  GO  TO  20 
JOES  •  IDES 

IB(IP)  -  IDES*100+NDOF*10 
IDES  -  IDES+HDOF 
IF ( IDES- 1  .GT.  KFW)  MPW  -  IDES-1 
GO  TO  30 

20  JDES  -  IB (IP) 

IB(IP)  -  IB(IP)»100+HDOF«10 
30  JP  -  IPS+N+1 

IF( JP  .GT.  HFH)  CO  TO  *5 
DO  *0  JD-JP.NFN 

IF ( IHIC  .EQ.  IPREP(JD))  GO  TO  30 
40  CONTINUE 

43  IB(IP)  -  IB(IP)+1 

IC(IPC)  -  JDES 
IC(IPC-M)  -  NDOF 
IPC  -  IPC+2 
BE  -  HE+1 
NTT  -  KTT+KDOr 
GO  TO  SO 
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SO  IB( JD)  -  JOBS 

IF(JD  .CT.  JDH)  JDH-JD 
60  CONTINUE 

IF<NT  .CT.  MDOF)  MDOF  -  FT 

IFCIEL  .EQ.  FUMEL2  .OR.  RE  EQ.  0)  GO  TO  90 

IDES  -  IDES-FTT 

JP  -  IPS+F+1 

IF<JP  .CT.  JDH)  CO  TO  90 

DO  80  JD-JP.JDN 

IF(IB( JD)  .EQ.  0)  CO  TO  80 
IPC  -  1 
FT  -  0 
DO  70  I-1,NI 

IF(IB(JD)  .LT.  ICdPC))  CO  TO  70 
FT  -  BT+IC<IPC+1) 

70  IPC  -  IPC+2 

IB(JD)  -  IB( JD) -FT 
80  COHTIHUE 

90  CALL  PREOUT  ( IEL ,  H .  IPREP  ( IPS+1 )  ,  IB  ( IPS+1 )  ) 

100  COHTIFUE 
RETURN 
END 
C 
C 

SUBROUTINE  PREFFTfHIN, IA, MS, MU, MR) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  C 
C  Subrout  in*  PREFHT  Initiator  profront.  C 
C  Sinco  SOLVE  ia  in  a  DO  loop,  PREFHT  alao  aoroa  s offlo  parameter*.  C 
C  C 
C  Subrout ino  PREFHT  ia  callod  by:  MAIM  C 
C  C 
C  Subroutine  PREFHT  ealla:  SECOND  t  DESVEC  C 
C  C 
C  HIH  and  IA  eoaiinc  ini  MS,  MU,  and  MR  8°lns  out  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
COPMON/ am.  /  ISYM ,  HUMEL2 .  IRESOL ,  RRBS ,  RTAPEB ,  HTAPEU ,  HTAPEL ,  MA . 

IWRT ,  IPRIRT ,  IERR ,  MNEGP ,  FPOSP ,  NRHSF , 

IB ,  IU ,  IL ,  IFB ,  IFU ,  IFL ,  MBUF  ,MW ,  MKP , 

MELEM ,  MFVR ,  MB ,  MDOF ,  MFH ,  MLDEST 
DIMENSION  1AC1) 

CALL  SECOHD(TO) 

MLDEST-HIN 

NFN-NUMEL2+HIH 

CALL  DESVEC(RFH,HIN, IA, IA(HFH+1) , IA(2*NFN+1) ) 

MR  -  MDOF+MFW+1 

MS  -  NUMEL2+KLDEST+2*MDOF+(MDOF*<NDOF+l)W2+<MFW*(MFU+l))/2+MFW 

MU  -  NUMEL2+KLDEST+2*MDOF+MDOF*MDOF+MFV*MFH+KFU 

IWRT-0 

IB-0 

MBUF— 0 

MB— 0 

IU-0 

MU-0 

IERR-0 

IL— 0 

MRF-0 

FNECP— 0 

IFB— 0 

MELEIW 

FPOSP— 0 

IFU— 0 

mfur-o 

HRHSF-0 
IFL— 0 

CALL  SECOND(Tl) 

RETURN 

END 


C28 


SUBROUTINE  PREOUT  ( IEL ,  N ,  IA,  IB) 

cccccccccccccccccccccccccccccccccccc 


c  c 

C  Sub rout in*  PREOUT  la  used  to  writ*  destination  vectors.  C 
C  C 
C  Subroutine  PREOUT  la  eallad  bp:  DESVEC  C 
C  C 
C  Subroutina  PREOUT  auk a a  no  external  call*.  C 
C  C 


cccccccccccccccccccccccccccccccccccc 
DIMENSION  IA(1) » IB(1) 

COMtON  /CONDS/  NNE2 , NDOFM2 , NNT2 , HD0PE2 , NDOPT2 
CObMOH  /WORE/  IDEST(l) 

COMMON  /FLAGS/  IND(22) 

J-IND(12)+NNE2«(IEL-1)-1 
DO  10  I-1,N 
J-J+l 

IDEST(J)-IB(I) 

10  CONTINUE 
RETURN 
END 
C 
C 
C 

SUBROUTINE  PRHTRBS  ( CRBS ,  NN ,  IEL ,  IM ,  I  CODE ) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  C 
C  Subroutina  PRHTRBS  la  an  optional  routlna  to  print  tha  RHS  C 
C  aatrlx  (48  x  1)  or  (16  a  3).  For  dafault.  PRHTRBS  prints  C 
C  tha  RHS  autrlx  of  element  1  to  flic  (TAPE22).  C 
C  C 
C  Subroutina  PRHTRBS  la  eallad  bp:  MODIF  C 
C  C 
C  Subroutina  PRHTRBS  sake a  no  asternal  ealla.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

DIMENSION  RHS(NN) 

COMPLEX  CRBS(NN) 

DO  10  I-l.NN 

10  RHS(I)-SqRT(REAL(CRHS(I))**2.+AIMAC(CRBS(I))**2.) 

WRITE(22, *) 

IF(ICODE.EQ.4)URITE(22,*)’AFTER  IS016:' 

IP(ICOOE.EQ.5)WRITE(22,*) 'AFTER  MODIF:' 

IF(ICODE.EQ.6)URITE(22,*) 'AFTER  CONDENSE:' 

IF(ICOOE.EQ.  7)  WRITE  (22,*)  'AFTER  SOLVE:’ 

WRITE  (22,15)  IEL ,  IM- 1 

13  FORMAT (IX, 'MODULUS  OF  COMPLEX  RBS  VECTOR-  ',/, 

1  IX, 'ELEMENT:  ',13,'  WAVEHUMBER:  ’,13,/, 

2'  NODE  X  Y  Z ',/) 

DO  25  I-l.NN/3 

25  WRITE(22,20)I,RHS(3*I-2) ,RHS(3*I-1) ,CRHS(3»I) 

20  F0RMAT(1X,I5, 3X,2(E11 . 4 , 4X) , 2X.E11. * , ’  ♦  ’,E11.4,’  l’) 

RETURN 

END 

C 

C 

C 

SUBROUTINE  PRHTSM(CSM,HH ,  IEL ,  IM,  ICOOE  ,C) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  C 
C  Subroutina  PRXTSM  la  an  optional  routlna  to  print  tha  atlffness  C 
C  natrls  (NN  s  NN) .  Ac  dafault,  FRNTSM  prints  tha  stiffness  C 
C  aatrlx  of  elaaant  1  to  tape  (TAPE15) .  C 
C  C 
C  Subroutina  PRXTSM  la  called  bp:  M00IF  and  CONDENSE  C 
C  C 
C  Subroutine  PRXTSM  Bakes  no  external  calls.  C 
C  C 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
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DIMENSION  AMAG(NN.NN)  ,CSR(NN,NN)  ,CSI(NN,NN) 

COMPLEX  CSM(NN.NN) 

WRITE(15,5) 

HRITE(16,6) 

5  FORMAT  ( /  /  ,  ’SEAL  PARTS:  ’,/) 

6  FORMAT (//, ’IMAGINARY  PARTS:  ’,/) 

DO  10  1-1 ,NN 

DO  10  J-l.NN 

CSR(  I ,  J)-REAL(CSM<  I ,  J)  ) 

CSI(I,  J)-AIMAC(CSM(I,  J)) 

AMAG(I ,  J)«SQRT(R£AL(CSM(I ,  J)  )**2  .  +AIMAG(CSM(I ,  J)  )**2 .  ) 
IF(ABS(CSR(I , J) ) . LT -G*0 .0001)  CSR(I,J)-0. 

IF(ABS(CSI (I , J) ) . LT .6*0.00001)  CSI(I,J)-0. 

10  CONTINUE 
WRITE(15,*) 

WRITE(15,*) 

IFdCODE.EQ.  *)  WRITE  (15,  •)*  AFTER  IS016:* 

IFdCODE.EQ.  5)  WRITE (15,*) ’AFTER  MOD IF : * 

IFdCODE.EQ.  6)  WRITE(15,*) ’AFTER  CONDENSE:’ 

WRITE(15 , 1*  )NN ,  NN,  IEL ,  IM-1 
WRITE(16, *) 

WRITE (16,*) 

IFdCODE.EQ.  *)  WRITE  (16,*)  ’AFTER  IS016:’ 

IFdCODE.EQ. 5)  WRITE(16,  *)  ’AFTER  MODIF: ' 

IFdCODE.EQ. 6)  WRITE  (16,*) ’AFTER  CONDENSE:’ 

WRITE( 16 , 1*)NN , NN , IEL , IM-1 

1*  FORMAT (IX, ’STIFFNESS  MATRIX  (‘.12,’  x  ’,12, ’>  FOR  ELEMENT’, 13, 
2  ’  AT  WAVENUMBER  ’,12,’:’) 

WRITE(IS.IS) 

WRITE (16, 15) 

15  FORMAT( /.IX, ’STIFFNESS  MATRIX  COLS .  1-8:’,/) 

DO  25  I-l.HN 

WRITE<15,20)  <CSR(I,J),J-1,8) 

25  WRITE(16,20)  (CSI(I.J) , J-1,8) 

20  F0RMAT(1X,8(E15. 6,2X)  ) 

WRITE( 15, 22) 

WRITE (16, 22) 

22  FORMAT;/, IX,  ’STIFFNESS  MATRIX,  COLS.  9-16:’,/) 

DO  21  I-l.NN 

WRITE(1S.20)  (CSR(I, J) , J— 9,16) 

21  WRITE (16, 20)  (CSI(I.J) ,J-9,16) 

WRITE(1S,31) 

WRITE (16, 31) 

31  FORMAT;/, IX, 'STIFFNESS  MATRIX,  COLS.  17-2*:’,/) 

DO  23  I-l.NN 

WRITEC15.20)  (CSRd  ,J)  ,J-17,2*) 

23  WRITE(16,20)  (CSId.J) ,  J-17,2») 

IF  (NN  .EQ.  2* )  GOTO  99 
WRITE(15, 32) 

WRITE (16, 32) 

32  F0RMAT(/,1X. ’STIFFNESS  MATRIX,  COLS.  25-32:’,/) 

DO  2*  I-l.NN 

WRITE(15,20)  (CSR( I , J) , J-25 , 32 ) 

2*  WRITE (16, 20)  (CSId ,  J) ,  J-25, 32) 

WRITE(15,33) 

WRITE; 16, 33) 

33  FORMAT;/, IX, ’STIFFNESS  MATRIX,  COLS.  33-*0 :’,/> 

DO  26  I-l.NN 

WRITE(15 ,20)  (CSR(I,J).J-!3,*0) 

26  WRITE(16,20)  (CSI(I,J) ,J-33,*0) 

WRITE (15, 3*) 

WRITE(16,3*) 

3*  FORMAT!/, IX, ’STIFFNESS  MATRIX,  COLS.  *l-*8 :*,/) 

DO  27  1-1 , NN 

WRITE(15,20)  (CSR(I , J) , J— *1 , *8) 

27  WRITE(16,20)  (CSId.J) ,  J-*l  ,*8) 

99  CONTINUE 

RETURN 

END 
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onooo  n  no 


SUBROUTINE  SYMSM(A,C,NN,  IEL.ELG,  Id ,  IC2) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


c  c 

C  Subrout In*  SYMSM  Is  used  to  chock  the  symmetry  of  stlffn*  j  C 
C  aotrlcos  ot  <n;  desired  step  in  the  execution.  C 
C  C 
C  IC1  ■  0:  Reel  matrix  C 
C  1:  Complex  matrix  C 
C  C 
C  IC2  -  4:  After  IS016  C 
C  S:  After  MOOIF  C 
C  6:  After  CONDENSE  C 
C  C 
C  Subroutine  SYMSM  Is  celled  by:  MOOIF,  1  CONDENSE  C 
C  C 
C  Subroutine  SYMSM  Bakes  no  external  calls.  C 
C  C 


cccccccccccccccccceccccccccccccccccc 

DIMENSION  A(NR,NN) 

COMPLEX  C(NN.NN) 

COtMON  ITOLI  TOLSM 
C 

C  Real  Matrices 
C 

IF(ICl.EQ.O)  THEN 
DO  100  I-l.NH 
DO  100  J-l.NN 

IF(I.EQ.J)  GOTO  100 
ADIFF-ABS  ( A(  I ,  J  ) -A(  J ,  I )  ) 

IF ( ADIFF / ABS  < A(  I ,  J )  )  .  CT .  TOLSM .  AND .  A(  I ,  J )  . CT .  TOLSM*ELG )  THEN 
WRITE(6,*) 

WRITE(6,*> 

IFCIC2.EQ.A)  WRITE ( 6 ,*)’ AFTER  IS016: • 

IF(IC2.EQ.5)  WRITE ( 6 ,*)’ AFTER  MOOIF:’ 

IF(IC2.EQ.6)  WRITE(6.*>* AFTER  CONDENSE:’ 

WRITE(6.101)  IEL, I,J,A(I , J) , J, I ,A( J, I) , ADIFF 
ELSE 
ENDIF 

100  CONTINUE 

ELSEIF ( IC1 . EQ . 1 )  THEN 
C 

Caagtlex  out  rices 


DO  200  I-l.HH 
DO  200  J-l.NN 

IF(I.EQ.J)  GOTO  200 


AMAGl-SQRT (REAL < C < I , J ) ) «*2 . +AIMAG ( C ( I , J ) ) **2 . ) 
AMAG2-SQRT ( REAL ( C ( J , I ) ) • * 2 . +AIMAG ( C ( J , I ) ) * * 2 . ) 
DIFF1-ABS (REAL < C ( I , J ) ) -REAL ( C ( J , I ) ) ) 

DIFF2-ABS ( AIMAG (C ( I , J) ) - AIMAC ( C ( J , I > ) ) 
DIFF3-ABS  ( AMAG1  -  AMAG2) 


Disregard  components  with  low  magnitudes 
IF(AMAGl.LE.TOLSM*ELC)  GOTO  200 


Check  real  parts 

IF(REAL(C(I,  J))  .  LE .  ELG*TOLSM )  GOTO  19B 
IF(DIFF1 /ABS(REAL(C(I , J) ) ) .GT .TOLSM) THEN 
WRITE(6,*) 

WRITE(6,») 

IF(IC2.EQ. 4)  WRITE(6,«) ’AFTER  IS016:’ 

IF ( IC2 . EQ . 5)  WRITE (6,*) ’AFTER  MODIF:’ 
IF(IC2-EQ.6)  WRITE(6,») ’AFTER  CONDENSE.’ 
WRITE(6, 101)IEL, I , J,REAL(C(I , J) ) , J, I , 

2  REAL(C(  J,  I) ) , DIFF1 

STOP 


C31 
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198 


continue 


Check  imaginary  part* 

IF<ABS<AIMAG<C<I,J))).LE.ELG*TOLSN)  GOTO  199 
IF(DIFP2/ABS(AIMAG(C(I ,  J) ) ) .GT .  TOLSM)THEN 
WRITE/*,*) 

WRITE/6,*) 

IF/IC2.EQ.4)  WRITE/6,*) 'AFTER  IS016:’ 
IF/IC2.EQ.5)  WRITE/6,*) 'AFTER  MOOIF:  ' 
IF(IC2.EQ.6)  WRITE/6,*) 'AFTER  CONDENSE: ' 
WRITE/6,102)IEL,I,J,AIHAG/C/I,J)),J,I, 

2  AIMAC/C/J,I)),DIFF2 

STOP 
ENDIF 

199  CONTINUE 


Check  magnitude* 

IF(DIFF3/AMAG1  .CT .  TOLSH)  THEN 
WRITE/6,*) 

WRITE/6, *) 

IF/IC2.EQ.4)  WRITE/6,*) 'AFTER  IS016:' 

IF/IC2.EQ.3)  WRITE/6,*) 'AFTER  MODIF:' 

IFCIC2.EQ.6)  WRITE (6,*) 'AFTER  CONDENSE:' 

WRITE< 6 , 103 )  I  EL ,  I ,  J ,  AMAG1 ,  J ,  I ,  AMAG2 , DIFF3 
STOP 
ENDIF 

200  CONTINUE 
ELSE 

WRITE/6,*) 'PROBLEM  IN  SYMSM  WITH  IC1’ 

STOP 

ENDIF 

101  FORMAT (//, IX,  ’**UNSYMETRXC  REAL  PART  OF  3-D  ', 

1  'STIFFNESS  MATRIX:  ’ , 

2  'ELEMENT:  \I5.10X, 

3  'SM( ’ ,12, ' , ’ ,12, ’ )«’ , E15.8, '  SM( '.12, * . ',12. ' )-' ,E15 . 8. / . 

4  'DIFFERENCE—' , E10. 3, / / ) 

102  FORMAT///,  IX, ‘**UNSYMETRIC  IMAGINARY  PART  OF  3-D  ', 

1  'STIFFNESS  MATRIX:’,//, 

2  'ELEMENT:  ’.IS.lOX, 

3  ’SM( ' , 12, ' , ’ ,12, ' )■' , E15. 8 , ' l  SM( ’ ,12, ' , ’ ,12, ' )-’ ,E15.8, 

4  '  1’,/, 'DIFFERENCE-', E10. 3,//) 

103  FORMAT///, IX, '**UNSYMETRIC  MAGNITUDES  OF  3-D  ’, 

1  'STIFFNESS  MATRIX:',//, 

2  'ELEMENT:  \IS,10X, 

3  'SM<',I2,',',I2,')-',E13.8,'  SM( * ,12, ' , * ,12, ' )-' ,E15 .8, / , 

4  'DIFFERENCE-' , El 0.3,//) 

RETURN 

END 


FRONTAL  SOLVER  SUBROUTINES 


SUBROUTINE  SOLVE(A.IM) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C 

Subroutine  SOLVE  1*  a  frontal  solver  originally  written  by  C 

Prof.  Johnson  at  the  University  of  Texas  at  Austin.  Since  C 

that  time,  the  solver  was  modified  by  several  graduate  C 

students,  some  under  the  direction  of  Prof.  Becker  in  EM.  C 

C 

Subroutine  SOLVE  begins  the  frontal  solution  technique  by  C 

calling  one  of  the  independent  solvers  for  a  full  or  upper  C 

C  triangle  stiffness  matrix.  C 


C32 


C 

C 

c 

Subrout  ln« 

SOLVE  La  called  by:  MAIH 

C 

c 

C 

c 

Subrout  Ln* 

SOLVE  ealla:  COMPLY  for  a  symorntric  matrix 

C 

c 

(uppar  trian*le) 

C 

c 

RESOL  for  an  non-aymmetrie  matrix 

C 

c 

(full  matrix) 

C 

c 

Variable  Hat: 

C 

c 

IAB 

Sub-indax  for  (A(IHD(13) ) ) 

C 

c 

LAE 

Sub-indax  for  (A(IHD(13))) 

C 

c 

LAP 

Sub-indax  for  (A(IHD(13)>) 

c 

c 

IAL 

Sub-indax  for  (A(IHD<13))) 

c 

c 

IAM 

Sub-indax  for  (A(IHD(13)>) 

C 

c 

LAX 

Sub-indax  for  (A(IHD(13))) 

c 

c 

IB 

C 

c 

IFB 

Humbar  of  vrltaa  to  HTAPEB 

c 

c 

IFL 

Busbar  of  vrltaa  to  HTAPEL 

c 

c 

IFU 

Humbar  of  vrltaa  to  HTAPEU 

c 

c 

IL 

c 

c 

IU 

c 

c 

IERR 

Error  coda 

c 

c 

IFG 

Solution  atatua  coda 

c 

c 

IPRIHT 

Print  coda 

c 

c 

IRE  SOL 

Solution  coda 

c 

c 

I  SYM 

Synaatry  coda 

c 

c 

IWRT 

c 

c 

MA 

Total  mamory  allocated  for  aolutlon 

c 

c 

MB 

Memory  lancth  for  RHS  buffer 

c 

c 

MDOF 

Maximum  number  of  DOF’ a  per  element  (-NDOFE2) 

c 

c 

MB  UP 

Mamory  lancth  for  LHS  buffer 

c 

c 

MELEM 

Meainry  lancth  for  Element 

c 

c 

MFH 

c 

c 

HFWR 

Mamory  lancth  for  Front 

c 

c 

KEF 

c 

c 

MLOEST 

Mamory  lancth  for  daatlnation  vector 

c 

c 

MU 

c 

c 

H 

Intacer  array 

c 

c 

HHEGP 

Number  of  nec*tive  pivot  pointa  (real  part) 

c 

c 

HPOSP 

Humber  of  positive  pivot  pointa  (real  part) 

c 

c 

HRHSF 

c 

c 

HUMEL2 

Humbar  of  elamanta  (condensed) 

c 

c 

HRflS 

Humbar  of  RHS* a 

c 

c 

HTAPEB 

Tape  number  for  B 

c 

c 

HTAPEL 

Tapa  number  for  L  (loads) 

c 

c 

HTAPEU 

Tape  number  for  U  (displacements) 

c 

c 

c 

c  c 

ccccccccccccccccccccccccccccccc 

c  c  c 

GOMMI  / CHTL / I STM ,  HUMEL2 ,  IRESOL ,  HRBS ,  HTAPEB ,  HTAPEU ,  NTAPEL ,  MA , 
IURT ,  IPRIHT ,  IERR ,  HNEGP ,  HPOSP ,  HRBSF , 

IB.IU.IL,  IFB ,  IFU ,  IFL ,  MB  UP ,  HU ,  MKF , 
MELEM.MFVR.KB.MDOr.HFV.HLDEST 

COMPLEX  A(1 ) 

KHEGP  -  0 
HPOSP  -  0 
CALL  COKPLT(A.IM) 

RETURN 

EHD 

C 

C 
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***  SYMMETRIC  MATRIX  ROUTINES  (LOWER  TRIANGLE) 

SUBROUTINE  COMPLT ( A, IM) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C 

Subroutine  COMPLT  initiates  the  eolution  technique  for  a  C 

symmetric  stiffness  matrix.  Only  the  top  half  of  the  C 

stiffness  astrix  is  read.  Forward  elimination  of  the  LBS  C 

and  RBS  are  performed  followed  by  backsubstitution.  C 

C 

Fined  paraaaeters :  C 

ISYM  -  1  C 

I RE SOL  -  0  C 

C  NRHS  -  1  C 

C  C 

C  Subroutine  COMPLT  is  called  by:  SOLVE  C 

C  C 

C  Subroutine  COMPLT  calls:  SECOND,  FRWCP,  and  BCKWRD  C 

C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
COIMON/CNTL t ISYM , NUMEL2 , IRE SOL, NRHS , NTAPEB , NTAPEU , NTAPEL , 

MA ,  IWRT ,  IPRINT ,  IERR ,  NNECP ,  NPOSP ,  HRHSF , 

IB,  IU,  IL,  IFB ,  IFU,  IFL,MBt/F,MW,MKF, 

MELEM ,  MFWR ,  MB ,  MDOF ,  MFW ,  MLDEST 
COMPLEX  A(  1 ) 

CALL  SECOND  (TO) 

IERR  -  1 

N  -  NUMEL2+MLDEST+2*MDOF 

IF(ISYM  .GT.  1)  GO  TO  10 

MELEM  -  ( MDOF*  ( MDOF+1 )  )  /  2+MDOF*KRHS 

MKF  -  (MFW*  (MFW+1 ) )  /  2 

GO  TO  20 

10  MELEM  -  MDOF*  (MDOF+NRHS ) 

MEF  -  MFW*MFV 
20  MFWR  -  MKF+MFW*NRHS 
MW  -  MELEM+MFWR 
MBUF  -  MA-MU-N 
IF (ISYM  .GT.  1)  GO  TO  *0 

IF ( IPRINT  .NE.  0  .AND.  IM.  EQ.  1)  PRINT  1000 
GO  TO  50 

*0  IF ( IPRINT  .NE.  0  .AND.  IM.  EQ.  1)  PRINT  1010 

IFUSYH.EQ. 2. AND. IPRINT. NE.0. AND. IM.EQ.l)  PRINT  1020 
50  IF  (IPRINT  .HE.  0  .AND.  IM.EQ.  1)  PRINT  1030,  N,  MELEM,  MFWR,  MBUF,  MA 
IF  (MBUF  .LT.  MFW+NRHS)  GO  TO  70 
IAL  -  1+NUMEL2 
I AM  -  IAL+MLDEST 

IAN  -  :ah+mdof 
IAE  -  IAN+MDOF 
IAF  -  IAE+MELEM 
IAB  -  IAF+MFWR 

CALL  FRWCP(A(1)  ,A(IAL)  ,A(IAM)  ,A(IAN)  ,A<IAE)  ,A(IAF)  ,A(IAB)) 

CALL  SECOND  (TF) 

DT  -  TF-TO 

IF (IPRINT  .NE.  0.  AND.  IM.  EQ.  1)  PRINT  10*0, DT 
IFdPRINT. HE. 0. AND. IFU. HE. 0. AND. IM.EQ.l)  PRIF.  10*3, IFU 
IF (IPRINT. HE. 0. AND. IFL.HE.O. AND. IM.EQ.l)  PRINT  10*5, IFL 
IF (IERR  .HE.  1)  RETURN 
IF (NRHS  .EQ.  0)  GO  TO  60 

CALL  BCKWRD (A(l ) ,A(IAL) ,A(IAM) ,A(IAN) , A(IAE) , A( IAF) ,A(IAB) , 

A(IAB) ) 

CALL  SECOND  (TB) 

DT  «  TB-TF 
60  RETURN 
70  IERR  -  6 
PRINT  1060 
STOP 
RETURN 
C 
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1000  FORMAT!/, IX, ’FRONTAL  SOLTEK  INFORMATION :  '  ,  /  , 

+  5X.29BSYM4ETRIC  FORWARD  ELIMINATION  ,/) 

1010  FORMAT  (  /  ,  IX,  ’FRONTAL  SOLTEK  INFORMATION  :  ‘ ,  /  , 

+  ?X, 3imNSY)METKIC  FORWARD  ELIMINATION  ,/) 


1020  FORMAT ( 
1030  FORMAT! 


JX.22HRE SOLUTION  INACTIVATED 


./> 

4X.21H  INTEGER  ARRAY:  ,17,/. 

AX.21B  REAL  ARRAY  ./, 

4X.21H  ELEMENT:  ,17,/, 

4X.21B  FRONT:  ,17,/, 

4X.21H  BUFFER:  ,17,/, 

4X.21H  TOTAL  STORAGE:  ,17) 

1040  FORMAT!  10X.29BTIME  IN  FORWARD  ELIMINATION:  ,F9.3 ,/) 

1043  FORMAT!  10X.18BWRITES  TO  NTAPEU:  ,14,/) 

1045  FORMAT!  10X,  18BWRITES  TO  HTAPEL:  ,14,/) 

1060  FORMAT  (2(1) ,  5X.  32HERROR:  NOT  ENOUGH  ROOM  IN  BUFFER,/, 

♦  5X,* PROGRAM  TERMINATED',/) 

END 


C 

C 

C 

SUBROUTINE  FRWCP  ! LELM ,  LDEST ,  MDEST ,  NDEST ,  ELXM ,  FRNT ,  BUF ) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  C 
C  Subroutine  FRWCP  performs  the  forward  elimination  of  both  the  C 
C  LBS  and  RBS.  C 
C  C 
C  Subroutine  FRWCP  la  called  by:  COMPLT  C 
C  C 
C  Subroutine  FRWCP  calls:  SOLIN,  OEST,  SYMASM,  UNSASM,  SEMRHS,  C 
C  TOUT,  UNSELM,  SYMELM,  and  ELMRHS  C 
C  C 


cccccccccccccccccccccccccccccccccc 

CGWON  /  CNTL  / 1 S  YM ,  NUMEL2 ,  IRE  SOL ,  RRHS ,  NTAPEB ,  NTAPEU ,  NTAPEL ,  MA , 

IWRT ,  IPRINT ,  IERR,  NNEGP ,  NPOSP ,  NRHSF , 

IB ,  IU ,  IL ,  IFB ,  IFU ,  IFL ,  MBUF ,  MW ,  MXF , 

MELEK,  MFWR ,  MB ,  MOOT.  MFV,  KLDSST 
DIMENSION  LDEST!  1 )  ,MDEST!1)  ,  NDESTd ) ,  LELM(  1 ) 

COMPLEX  ELEH!1),FRRT!1).BUF!1) 

REWIND  NTAPEU 

IF ( ISYM  .EQ.  3)  REWIND  NTAPEL 

IFU  -  0 

IFL  «  0 

NRHSF  -  NRHS 

IU  -  1 

IL  -  MBUF 

NFW  -  0 

LFW  -  0 

DO  200  IEL-1.HUMEL2 

CALL  SOLIN!IEL, 3, NRHS, NUMDES, LDEST, ELBO 
CALL  DEST INUMDES ,  LDEST ,  NFW ,  NDOF ,  HE ,  MDEST ,  NDEST  ) 

IF! LFW  .GT.  NFW)  NFW  -  LFW 

IF! ISYM  .EQ.  1)  CALL  SYMASM (NDOF, LFW, NFW, MDEST, ELEM, FRNT) 

IF  (ISYM  .GT.  1)  CALL  UNSASM  (NDOF,  LFW,  NFW,  MDEST,  ELEM,  FRNT) 

EFW  -  NFW 

IF(NRHS  .EQ.  0)  GO  TO  30 
IFdSYM  .GT.  1)  GO  TO  10 
MXE  -  (NDOF*(NDOF+l))/2 
GO  TO  20 

10  MEE  -  NDOF* NDOF 

20  CALL  SEMRHS  (LFW,  NFW,  NDOF ,  NRHS  ,MFW,  MDEST,  ELEM  (MKE+1 )  ,FRNT(MKF+1)  ) 
30  IF(NE  .EQ.  0)  GO  TO  135 
DO  150  I E>1 , HE 

N  -  IU+NFW+HRHS-1 

IF(N  .LE.  IL)  GO  TO  40 

CALL  TOUT (1,IU, IFU, NTAPEU, BUF) 

IU  -  1 
40  M  -  IU 

IF(ISYM  .EQ.  3)  GO  TO  50 

IF(ISYM  .EQ.  2)  CALL  UNSELMdEL, EFW, NFW, NDEST(IE) , FRNT, 
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*  BUF(IU) ) 

IFdSYM  .EQ.  1)  CALL  SYMELHdEL.NFW.NDESTdE)  .FRNT.BUFdU)  > 

iu  -  iu+nrhs+nfw 

GO  TO  70 

N  -  I U+NFW+HRHS - 1 

IF(H  LE.  IL)  GO  TO  60 

CALL  TOUT ( IL , MBUF , IFL , NTAPEL , BUF ( IL+1 ) ) 

IL  -  MBUF 

CALL  UNSELM(IEL,KFW,NFW,NDESTdE) ,FRNT  ,BUF(IU)  ) 

IU  -  IU+HRHS+HFW 

IF (I ERR  .EQ-  1)  GO  TO  7S 

FEINT  1000, IEL 

RETURN 

IFCNRHS  .EQ.  0)  GO  TO  90 
IF(ISYM  .GT.l)  GO  TO  B0 

CALL  ELMRHS(HFW,MFW,MRHS,MDEST(IE) , 1 ,FRNT(MKF+1 ) , BUF(M) , 
BUFCM+NFV) ) 

GO  TO  120 

CALL  ELMRHS(NFW,MFW,NRHS,NDeSTdE),KFW,FRNT(MKF+l),FRNT(NFW), 
BUF (M+NFV) ) 

IFdSYM  .EQ.  2)  GO  TO  120 
IFdSYM  .NE.  3)  GO  TO  120 
IF(IL-NFW+1  .GE.  N)  GO  TO  100 
CALL  TOUT d ,  IU ,  IFU ,  NTAPEU  ,  BUF  ) 

IU  -  1 
M  -  NEW 
N  -  HFW-1 
DO  110  J-l.N 

BUF(IL)  -  FRNT(M) 

IL  -  IL-1 
M  -  M+KFW 
CONTINUE 
NFW  -  NFW-1 
CONTINUE 
LEW  -  NFW 
LELMdEL)  -  LFW 

IFdSYM  -EQ-  1  .OR.  NE  .EQ.  0)  GO  TO  200 
N  -  KFW 
M  -  NFW+1 
DO  170  1-2, NFW 
DO  160  J-l.NFW 

FRNT(M)  -  FRNTCH+J) 

M  -  M+l 
N  -  N+EFW 
CONTINUE 
IB  -  IU 

IF ( IWRT  .EQ.  0  .AND.  IFU  .EQ.  0)  GO  TO  210 
CALL  TOUT (l.IU, IFU, NTAPEU, BUF) 

BACKSPACE  NTAPEU 
IFdSYM  .NE.  3)  RETURN 

IF ( IWRT  .EQ.  0  .AND.  IFL  .EQ.  0)  RETURN 
CALL  TOUT (IL, MBUF, IFL, NTAPEL, BUF (IL+1)) 

RETURN 

FORMAT ( 2 ( / )  ,  SX , * 2HERROR :  ZERO  PIVOT  IN  ELEMENT: 

,15) 

END 


SUBROUTINE  SYMASM(RDOF , LFVX ,HFVX , MDEST , ELLHS , FLBS) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

Subroutine  SYMASM  •aromble*  the  LBS  for  aytenetrlc  matrices.  C 

C 

Subroutine  SYMASM  la  called  br:  FRWCP  C 

C 

Subroutine  SYMASM  makes  no  external  calls.  C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
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DIMENSION  MDEST(l) 

COMPLEX  KLLHS ( 1 ) , ELHS ( 1 ) 

LEW  -  LEWX 
HEW  -  HEWX 

IE  (NEW  .EQ.  LEW)  CO  TO  20 
Ml  -  (LEW*(LEW+l))/2+l 
MJ  -  (NEW* (NEW+1) ) 12 
DO  10  I^<I,MJ 
10  ELBS(I)  -  (0.,0.) 

20  N  -  1 

DO  50  I-l.NDOE 
MI  -  MDEST(I) 

DO  50  J-l.I 
MJ  -  MDEST(J) 

ME  -  MAXO (MI  ,KJ) 

MJ  -  MINO(MI.MJ) 

ME  -  (ME*(ME-1)  )/2+MJ 
ELBS(ME)  -  ELBS(ME)+ELLHS(N) 

50  N  ■  N+l 
RETURN 
END 
C 
C 
C 

SUBROUTINE  SYMELM ( IEL , NEWX  > 1DX , ELHS , U ) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  C 
C  Subroutina  SYMELM  eliminates  on*  aquation  (ID)  for  sjnnnetrlc  C 
C  matrices .  C 
C  C 
C  Subroutina  SYMELM  la  callad  by:  ERUCP  C 
C  C 
C  Subroutina  SYMELM  makes  no  external  calls.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

comon  /am,/  ioum(9)  ,ifrint,ierr,nnecp,nposp,iidum(16) 

COMPLEX  ELBS(l)  ,U(1)  , PIVOTC, S 
ID  -  IDX 
NEW  -  NEWX 
MP-(ID»(ID+l))/2 
IDM  -  ID-1 
IDP  -  ID+1 
M  -  MP-ID+1 
E  -  1 
C 

C  OR  to  us*  r*al  part  for  comparisons?!? 

C 

PIVOT  -  REAL ( ELHS (MP) ) 

PIVOTC  -  ELBS(MP) 

IF ( IPRINT  .GE.  2)  PRINT  200 , IEL, NEW, ID, PIVOTC 
200  E0KMAT(5X,17HIEL, NEW, ID, PIVOTC  , 315, Eli ,E13 1 ’ ) 

U(ID)  -  PIVOTC 

IF(ABS(PIVOT)  .LE.  l.E-30)  CO  TO  90 
IE  (PIVOT  .LT.  0.)  NNECP  -  HNEGP+1 
IE (PIVOT  .GT.  0.)  NPOSP  -  NPOSP+1 
IE (IDM  .EQ.  0)  GO  TO  30 
DO  20  1*1 ,  IDM 
S  -  ELBS(M) 

U(I)  -  S /PIVOTC 
DO  10  J-1,1 

FLBS(E)  -  ELHS(R)-S*U( J) 

10  E*E+1 

20  M-M+l 
30  M-MP 
E  -  0 

IE ( IDP  .GT.  NEW)  GO  TO  100 
DO  60  I-IDP.NEW 
NN  -  M-ID 
M  -  H+ID+R 
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N  -  M-ID 
S  -  FLHS(M) 

UCI)  -  S/PIVOTC 
IF(IDM  .EQ.  0)  GO  TO  SO 
DO  *0  J-l.IDM 

40  FLHS(NN-tJ)  -  FLHS<N+J)-S»U<J) 
SO  NN  -  HN-1 

DO  55  J-IDP.I 

55  FLHS(NN+J)  »  FLHS(N+J)-S*U(J) 
60  K-K+l 

GO  TO  100 
90  I ERR  -  2 
100  RETURN 
END 


SUBROUTINE  UNSASM (HDOF,LFWX,NFVX,MDEST,ELLHS,FLHS) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C 

Subroutine  UNSASM  assembles  the  LBS  for  unsymmet rlc  matrices.  C 

C 

Subroutine  UNSASM  ii  called  by:  FRWCP  C 

C 

Subroutine  UNSASM  make  a  no  asternal  calls.  C 

C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DIMENSION  MDEST(l) 

COMPLEX  ELLBS ( 1 ) , FLHS ( 1 ) 

LFW  -  LFWX 
NPW  -  NFWX 

IP(NPW  .EQ.  LFU)  GO  TO  40 
MI  -  LFW*NFW+1 
MJ  -  NFW*NPW 
MX  -  LFW*LFW+1 
DO  10  1-ta.MJ 
10  PLBS(I)  -  0. 

IP  (LFW  .EQ.  0)  GO  TO  40 
MJ  -  NPW -LFW 
DO  30  I-l.LFW 
DO  20  J-l.MJ 
MI  -  MI-1 

20  FLBS(MI)  -  <0.,0.) 

DO  30  J-l.LPW 
MI  -  MI-1 
MX  -  MX-1 

30  FLBS(MI)  -  FLBS(MK) 

MI  -  NFW*NFV 
40  N  -  1 

DO  50  I-l.HDOF 
MI  -  MDEST(I) 

MX  -  <MI-1)*NFW 
DO  50  J-l.NDOF 
MJ  -  MDEST(J) 

ML  -  MX+MJ 

FLHS(ML)  -  FLHS(ML)+ELLHS(N) 

50  N  -  N+l 
RETURN 
END 
C 
C 
C 
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SUBROUTINE  UNSELH< IEL ,KTWX, NTUX, IDX, FLHS , U) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  C 
C  Subroutine  UNSELM  eliainates  on*  aquation  (ID)  for  unrymmetric  C 
C  Metric**.  C 
C  C 
C  Subroutine  UNSELM  i*  called  by:  FRWCP  C 
C  C 
C  Subroutine  UHSELM  sake*  no  external  call*.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCM40N  /MTU  IDUM(9) ,  IPRIHT,  IERR.HNEGP ,  NPOSP,  IIDUM(  16) 

COMPLEX  PLBS(l) ,U(1) ,PIVOTC,S 

ID  -  IDX 

XFW  -  KFVX 

HFW  -  HFWX 

I DM  -  ID-1 

IDP  -  ID+1 

K  -  I0M*EFW 

KP  «  E+ID 

PTVOTC  -  PLBS(MP) 

PIVOT  -  R£AL(PLHS(MP) ) 

IF  (IPRIHT  .CE.  2)  PRIHT  200,  IEL.HFW, ID.PIVOTC 
200  FORMAT  (5X,17HIEL,  HFW,  ID,  PTVOTC  ,315, E13.*, >♦* ,E13.*, 'i1 ) 

IF (ABS( PIVOT)  .LE.  l.E-30)  CO  TO  90 
IF(PIVOT  .LT.  0.)  HHECP  -  HHEGP+1 
IF (PIVOT  .CT.  0.)  HPOSP  -  HPOSP+1 
DO  5  I-l.HFW 
S  U(I)  -  FLHS(X+I) 

K  -  0 

IF(IDM  .EQ.  0)  CO  TO  *0 
DO  30  1*1 , I DM 

S  -  FLHSdD+K)  /PTVOTC 
DO  10  J-l.IDM 
M  -  J-fK 

10  FLHS(M)  -  FLHS(K) -S*U(J) 

M  -  E-l 

IF ( IDP  .CT.  HFH)  CO  TO  25 
DO  20  J- IDP, HPW 

20  FLHS( J+M)  -  FLHS(J+K)-S*U(J) 

23  K  -  K+KFW 
30  FLHS  (E-EFW+HFW)  -  S 
*0  K-X+KFV 

IF ( IDP  .CT.  HFH)  CO  TO  100 
DO  70  I -IDP, HPW 

S  -  FLHS(ItHK) /PTVOTC 
M  -  K-EFH 

IFdDM  .EQ.  0)  GO  TO  S3 
DO  30  J-l.IDM 

50  FLBS(J4M)  »  FLHS(E+J)-S*U(J) 

33  M-M-l 

DO  60  J-IDP.HFV 

60  FLHS(M+J)  -  FLHS(E+J)-S*U(J) 

FLHS(K-KFW+HFH)  -  S 
70  K  -  E+KFW 
GO  TO  100 
90  IERR  -  2 
100  CONTINUE 
RETURN 
END 
C 
C 

C  *•*  ROUTINES  FOR  HON-ST)*1ETRIC  MATRICES  (FULL  MATRIX) 

C 

C 

C  ***  (REMOVED  SINCE  HOT  USED) 

C 

C 
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C  *'*  ROUTINES  CGH40N  TO  BOTH  SOLUTION  METHODS 

C 

C 

SUBROUTINE  BCKWRD  ( LELM,  LDEST ,  MDEST ,  HDEST ,  ELEM ,  PRNT ,  B ,  U ) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  C 
C  Subroutlna  BCKWRD  la  uaad  to  parforn  tha  backsubstltutlon.  C 
C  C 
C  Subrout lna  BCKWRD  la  eallad  by:  COMPLT,  RESOL  C 
C  C 
C  Subrout lna  BCKWRD  calla:  SOLIN,  DEST,  ELKSOL,  SOLOUT  C 
C  C 


cccccccccccccccccccccccccccccccccccc 
conion  /ctm./  isym ,  numel2 ,  iresol  ,  nrbs  ,  ntapeb  ,  ntapeu  ,  ntapel  ,  ma  , 
IWRT ,  IPRINT ,  I  ERR ,  NNECP ,  HPOSP ,  NRHSF , 

IB , IUU , IL , ire , IFU , IFL , MBUE , MW , MKF , 

HELEN , MEWR , MB , MDOE , MEW , MLDEST 
DIMENSION  LDEST(l) , MDEST ( 1 ) , HDEST ( 1 ) , LELM ( 1 ) 

COMPLEX  ELEM( 1 ) , PRNT (1),B(1),U(1) 

IU  -  IUU 
JEL  -  HUMEL2+1 
IB  -  IB-NRBS 
DO  100  IEL-1 , NUMEL2 
JEL  -  JEL-1 

CALL  SOLIN ( JEL, 1 , HRHS , NUMDES , LDEST , ELEM) 

CALL  DEST (NUMDES .LDEST, NEW, HDOF, HE, MDEST, NDEST) 

IF( JEL  .EQ.  1)  CO  TO  7 
LFV  -  LELM (JEL-1) 

IF(LFW  .CT.  NEW)  HEW  -  LEW 
7  CONTINUE 

NEW  -  NEW-NE+1 
IF (HE  .EQ.  0)  GO  TO  35 
J  -  NE+1 
DO  30  I-l.HE 
J  -  J-l 

IF (IV  .CT.  1)  GO  TO  10 
BACKSPACE  NTAPEU 
READ(NTAPEU)  IU.  (U(II)  .  II-I ,  IU) 

BACKSPACE  NTAPEU 
IU  -  IU+1 

10  IU  -  IU-NEW-NRHSE 

IE ( IRESOL  .EQ.  1)  CO  TO  20 
N  -  IU+HEV 

CALL  ELMSOL(NEW, MFW, NRHS, NDEST< J) ,U(IU) ,U(N) ,FRNT( 1) ) 

GO  TO  30 

20  IE  (IB  .CE.  1)  GO  TO  25 

BACKSPACE  NTAPEB 
READ(NTAPEB)  IB,  (B(II) ,  II-l ,  IB) 

BACKSPACE  NTAPEB 
IB  -  IB-HRHS+1 
25  CONTINUE 

CALL  EU(SOL(  NEW,  MEW,  NRHS  ,  HDEST  (J)  ,U(IU)  ,B(IB) ,  FRNT(  1 )  ) 

IB  -  IB-HRHS 
30  NEW  -  NEW+1 

35  DO  AO  I-l.HDOF 

K  -  0 

L  -  0 

M  -  MDEST(I) 

DO  AO  J-l, NRBS 

ELEM(K+I)  -  ERHT(L+M) 

K  -  K-t-HDOE 
AO  L  -  L+MEW 

CALL  SOLOUT ( JEL, NDOE, NRHS, ELEM) 

100  CONTINUE 
RETURN 
END 
C 
C 
C 
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SUBROUT IKE  DEST ( ND , LDEST , NFW , HDOF , NEE , MDEST , NDEST ) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  c 
C  Subroutine  DEST  convert*  DEST  neton  to  DOF  DEST.  vMtori .  C 
C  Tha  aquation*  to  b#  eliailnatad  an  written  to  NDEST  (Ivins  C 
C  the  currant  location  In  tha  front.  C 
C  C 
C  Subroutine  DEST  la  called  by:  FRHCP,  FRWRS,  l  BKWRD  C 
C  C 
C  Subroutine  DEST  aakaa  no  external  call* .  C 
C  C 


cccccccccccccccccccccccccccccccccccc 

COMON  /CITL/  IDUM(9)  ,IPRIHT,IIDUM(19) 

DIMENSION  LDEST ( 1 ) , MDEST ( 1 ) , NDEST ( 1 ) 

C 

C  Tha  following  atataaMnt  appear*  to  be  a  function.  It  therefore 
C  haa  bean  replaced  with  tha  aquation  where  callad. 

C 

MOORCI.J)  -  1-1/ J*J 

NFW  -  0 
KM  -  1 
KM  -  1 
MDOF  -  0 
ME  -  0 

DO  50  I-l.MD 

M  -  NOOR(LDEST(I) ,10) 

M2  -  LDEST ( I ) -LDEST ( I ) / 10*10 
H  -  MOOR(LDEST( I) t 100) /10 
M2  -  (LDEST( I)-LDEST(I ) / 100*100)/ 10 
IF(ABS(M-M2) .GT.0.5.OR.ABS(N-N2)  .GT.0.5)  THEN 
WRITE/ 6 , * )  ’PROBLEM  IN  DEST  HITS  MOOR* 

STOP 

ELSE 

EMDIF 

HDOF  -  MDOF+N 
IF(M  .CE.  1)  ME  -  ME+N 
L  -  LDESTCI ) / 100-1 
DO  10  J-l.M 

MDEST (KM)  -  L+J 
IF(M  .EQ.  0)  GO  TO  10 
MDEST (KM)  -  L+J 
KM  -  KM+1 
10  KM  -  KM+1 

L  -  MDEST(KM-l) 

IF(L  .GT.  NFW)  MFW  -  L 
50  CONTINUE 

IF(NE  .EQ.  0)  GO  TO  BO 
DO  70  I-l.RE 
J  -  1+1 
DO  70  L-J.ME 

IF(HDEST(I)  .LT.  NDEST (L) )  NDEST(L)  -  NDEST(L)-1 
70  CONTINUE 
SO  MEE  -  ME 

IF ( I PRINT  ,LE.  2)  RETURN 
PRINT  1000,(LDEST(I),I«1,ND) 

PRINT  1010 , (MDEST(I) , I-l , HDOF) 

PRINT  1020 , (MDEST(I) , I«1 ,NE) 

1000  FORMAT! /X*IN  DEST:  MODAL  DESTINATION  VECTORS* , 1017 , 10( /, 35X, 101?) ) 
1010  FORMAT (1 IX, »DOF  DESTINATION  VECTORS*10I7 , 10<  /  ,  35X,  1017) ) 

1020  FORMAT  (9X»ELIM.  DESTINATION  VECTORS*10I7 , 10( /,  J5X,  1017)  ) 

RETURN 

END 

C 

C 

c 
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SUBROUTINE  ELMRHS(HFV,MFN ,HRHS, ID, INC,FRHS,U ,B) 
cccccccccccccccccccccccccccccccccccc 


C  c 

C  Subroutine  ELMRBS  el  initiates  BBS's  {or  aquation  (ID).  C 
C  C 
C  Subroutine  ELKRBS  ia  called  by:  FRWCP  l  FRWRS  C 
C  C 
C  Subroutine  ELMRBS  Bakes  no  eatamal  cell*.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
COMO*  I  am.  I  ISYM,IIDUM<28) 

COMPLEX  PRHS(l) ,0(1) aB(l) , S 
I DM  -  ID-1 
IDP  -  ID+1 
IM  -  0 

DO  50  IN  -  1 ,NRBS 
IU  -  1 

S  -  FRBS(IM+ID) 

B(IN)  -  S 

IFdOM  .EQ.  0)  CO  TO  25 
DO  20  I-l.IDM 
II  -  IM+I 

FRBS(II)  -  FRHS(II)-S+U(IU) 

20  IU-IU+IHC 

25  IFdSYM  .EQ.  1)  IU  -  IU+1 
IF (IDP  .CT.  NFU)  CO  TO  50 
DO  30  I-IDP.NFW 
II  -  IM+I 

FRHS(II-l)  -  FRHS(II)-S*U(IU) 

30  IU  «  IU+IHC 
50  IM  -  IM+MFW 
RETURN 
END 


SUBROUTINE  ELMSOL(HFV,MFW,NRHS,XDX.U.B.X) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


c 

Subroutine  ELMSOL  calculate*  the  solution  for  one  DOF  as  C 

specified  by  (ID).  C 

C 

Subroutine  ELMSOL  is  called  by:  BKWRD  C 

C 

Subroutine  ELMSOL  stakes  no  external  calls.  C 

C 


cccccccccccccccccccccccccccccccccccc 

COMtON  I  am.  I  ISYM.IIDUM(2B) 

COMPLEX  U(1),B(1),X(1),F1,F2,S 
ID  -  IDX 
IDM  -  ID-1 
IDP  -  ID+1 

IF(ISYM  .CT.  1)  CO  TO  5 
FI  -  U(ID) 

F2  -  (1,0.) 

GO  TO  7 
5  FI  -  (1.  ,0.) 

F2  -  U(ID) 

7  CONTINUE 

DO  *0  IH-l.HRBS 
IU  -  NFW 
JA  -  (IN-D+MFW 
I A  -  JA+NFV-1 
S  -  B( IN) /FI 

IF (IDP  .CT.  NFW)  CO  TO  20 
DO  10  I-IDP.NFW 
X( IA+1 )  -  X(IA) 

S  -  S-U(IU)*X(IA) 

IA  -  IA- 1 


CA2 


10  10  -  IU-1 

20  10  -  IO-l 

IF(IDM  .LT.  1)  CO  TO  *0 
DO  30  I-l.IDM 

S  -  S-U<IU)*X(IA) 

IA  -  IA-1 
30  10  -  IU-1 

*0  X( JA+ID)  -  S/F2 
RETURN 
END 
C 
C 
C 

SUBROUTINE  SEMRBS ( LEW , NFW , NDOF , HUBS , KFW , MDEST , ELRHS , FRHS ) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  c 
C  Subrout  in*  SEMRBS  ••••abler  the  RBS  for  •  full  ayaaetrlc  C 
C  aatrlx.  c 
C  c 
C  Subroutine  SEMRBS  la  celled  by:  FRWCP  1  FRWRS  C 
C  c 
C  Subroutine  SEMRBS  aakea  no  external  <.alla-  0 
C  c 


cccccccccccccccccccccccccccccccccccc 

DIMENSION  MDEST ( 1 ) 

COMPLEX  ELRHS  ( 1 ) ,  TUBS  ( 1 ) 

N  -  1 

DO  70  IN-l.NRBS 
IA  -  (IN-1)*MFW 
IP  (NEW  .EQ.  LFW)  CO  TO  IS 
M  -  LFV+1 
DO  13  I-M.NFW 
13  FRHS  ( I  AT  I )  -  <0.,0.) 

IS  CONTINUE 

DO  SO  I-l.NDOF 
J  -  I A-MDESTd) 

FRBS(J)  -  FRHS( J)-fELRHS(N) 

50  N  -  N+l 
70  CONTINUE 
RETURN 
END 
C 
C 
C 

SUBROUTINE  SOL IN ( I EL , IFC , NRHS , NUKDES , LDEST , ELEM) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  Subroutine  SOLIN  la  uaed  to  reed  In  neeeaaary  LBS  end  RBS  C 
C  date  froa  TapelO.  Date  la  returned  through  ELEM-  C 
C  Lengtha  LDEST  and  NUKDES  ere  elao  returned.  C 
C  c 
C  Subroutine  SOLIN  la  called  by:  BCKURD,  FRWCP,  FRWRS  C 
C  c 
C  Subroutine  SOLIN  aakea  no  external  cal la.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DIMENSION  LDEST (1) 

COMPLEX  ELEM(l) 

COWON  I  corns  I  NNE2,ND0FN2,NNT2,ND0FE2,ND0FT2 
C0M40N  /FLAGS/  IND(22) 

COmJN  /UNIT/  NTAPE.NTAPEO 
CObHON  /WORK/  IDEST(l) 

NUMDES-NNE2 

J-IND(12)+NNE2*(IEL-1)-1 
DO  10  1-1. NUKDES 
J-J-t-1 

LDEST ( I ) "IDEST ( J ) 

10  CONTINUE 


M3 


C 


non 


C  Sort  by  IFC  (coll  Index) - 

C  IFC-1:  Used  for  BCXWRD 

C  IFG-2:  Uaed  for  FRWRS 

C  IFC- 3:  Uaed  for  FRWC? 

C 

IF(IFG.EQ.l)  RETURN 
c  NDOF-24 

IFUFG.EQ.2)  THEN 
LENCTH-NDOFE2*NRHS 
ELSE 

LENGTH— ( (NDOFE2*(NDOFE2+l) )  /2)+NDOFE2*NRHS 
END  IF 

Read  appropriate  data  from  NT  APE  (TapelO) 

READ(NTAPE)  (ELEM(I) ,1-1 .LENGTH) 

RETURN 
END 
C 
C 

c 

SUBROUTINE  SOLOUTC IEL , HDOF , HRHS , ELEM) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  C.C  C  C 


C  C 
C  Subroutine  SOLOUT  la  uaed  to  write  the  displacement  vector  C 
C  to  C(IND(14) ) .  C 
C  C 
C  Subroutine  SOLOUT  la  called  by:  BCJCWRD  C 
C  C 
C  Subroutine  SOLOUT  makes  no  external  calls.  C 
C  C 


cccccccccccccccccrcccccccccccccccccc 

DIMENSION  IA(200000) ,IAA(70000)  ,AA(70000) 

COMPLEX  A( 200000 ),ELEM(1) 

EQUIVALENCE  <A(1)  ,IA(1)  ) ,  <AA(1)  ,IAA(1 )  > 

COMON  (CORDS/  NNE2 , ND0FN2 , NNT2 , NDOFE2 , HDOFT2 
COMMON  /FLAGS/  IND(22) 

COMON  /REALA/  AA 
COMON  /WORK/  A 
KNNE-16 

J-IND ( 7 ) +MNNE* ( IEL- 1 ) - 1 
M-0 

DO  20  I-1.NHE2 
C 

C  Use  front  face  of  front  wall  to  set  proper  Indexing  In  A 

C 

NODE— IAA(Jel) 

K«IND(l*)+NDOFN2*<NODE-l)-l 
DO  10  L-1.NDOFN2 
A(K+L)-ELEM(M+L) 

10  CONTINUE 

M-M+NDOEN2 
20  CONTINUE 
RETURN 
END 
C 
C 
C 

SUBROUTINE  TIN(L,I,J,NT,B> 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  C 
C  Subroutine  TIN  reada  the  RES  buffer  tape.  C 
C  C 
C  Subroutine  TIN  la  called  by:  FRURS  C 
C  C 
C  Subroutine  TIN  makes  no  external  calls.  C 
C  C 


non  onoonnonnonoooooooooo  notion  noooooooo  ooo 


COMPLEX  B(l) 

READ(NT)  K, ( B ( I I ) ,11-1, K) 
IF(L  .CT.  0)  GO  TO  5 
I  -  1 
J  -  K 
RETURD 
5  I  -  X 
J  -  1 
RETURN 
END 


SUBROUTINE  TOUT(I.J,IF,NT,B) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

Subroutine  TOUT  writes  all  buffer*  to  tap*.  C 

C 

Subroutine  TOUT  1*  called  by:  FRWCP  t  FRWRS  C 

C 

Subroutine  TOUT  sake*  no  external  ealla.  C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
COMPLEX  B<1) 

IF( J  ,EQ.  I)  RETURN 
K  -  J-I 
IF  -  IF+1 

URITE(NT)  R,(B(II),II-1,K) 

RETURN 

END 


>«*•***•••*•***•••*•  rrt  SUBROUTINES  *»*•»********«..***.***.«*..*** 

SUBROUTINE  FOUR2  (OATA.N.  K01M,  1S1GN .  I  FORM) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


c 

Subroutine  FOUR2  la  a  FFT  program  originally  written  at  MIT.  C 
The  argument*  for  FOUR2  are*  C 

C 

DATA:  array  name  C 

N :  array  used  In  the  subroutine  with  the  C 

digitisation  rate*  (power  of  2)  for  each  C 

dimension*  heading  the  array  C 

HDIM:  number  of  distensions  C 

ISIGN:  SIGN  of  transform  C 

I FORM-  C 

«-l:  convert  from  complex  to  real  C 

-  0:  convert  from  real  to  complex  C 

-  1:  stay  same  (real-real  or  complex-cooiplex  C 

C 

Subroutine  F0UR2  Is  called  by:  MAIN  C 

C 

Subroutine  FOUR2  calls:  BITRV,  COOL2,  FIXRL  C 

C 


ccccccccccccccccccccccccccccccccccc 

DIMENSION  DATA(l) ,  H(l) 

NTOT-1 

DO  10  IDIM-l.NDIM 
0  NTOT“NTOT*N  ( IDIM) 

IF  (IFORM)  70,2'  ,20 

Convert  from  real  to  complex  (lform  >•  0) 

20  NREM-NTOT 

DO  60  IDIM-l.NDIM 
NREM-NREM/N(IDIM) 

NPREV-NTOT/ (N(IDIM)*NREM) 
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HCURR-N(IDIM) 

IF  (IDIM-l+IFORM)  30,30,40 
30  NCURR-HCURR/2 

40  CALL  BITRV  ( DATA ,  HPREV ,  HCURR ,  HREM ) 

CALL  COOL 2  (DATA, HPREV, HCURR, HREM,  ISICN) 

IF  (IDIM-l+IFORM)  50,30,60 
SO  CALL  PIXRL  (DATA,N(1) , HREM, ISICN , IFORM) 

ntot-(htot/h(1))*(N(1)/2+i) 

60  CONTI  HUE 

RETURN 
C 

C  Convert  from  complex  to  real  (iform  <  0) 

C 

70  NTOT-(HTOT/N(l))*(H(l)/2+l) 

HREM-1 

DO  100  JDD^l.HDIM 
IDIM-NDIM+l-JDIM 
HCURR-N(IDIM) 

IF  (IDIM-1)  80,80,90 
80  NCURR-NCURR/2 

CALL  FIXRL  (DATA,H(1)  ,NREM,  ISICN,  I  FORM) 

NTOT-NTOT/ (H(l ) /2+1  )*N(1 ) 

90  NPREV-NTOT/(H(IDIM)+NR£M) 

CALL  BITRV  (DATA, HPREV, HCURR, HREM) 

CALL  COOL 2  ( DATA, HFREV, HCURR, HREM,  ISICN) 

100  NREM-NREM*N(IDIM) 

RETURN 

END 

C 

C 

C 

SUBROUTINE  BITRV  <  DAT  A.  HPREV,  N,  HREM) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  C 
C  Subroutine  BITRV  1*  part  of  tha  FFT  program.  It  shuffles  C 
C  tha  data  by  ’bit  reversal .  1  C 
C  C 
C  DIMENSION  DATA(NPREV,N,NREM)  C 
C  DATA(I1,I2REV,I3)  -  DATA(I1 . 12,13)  ,  FOR  ALL  II  FROM  1  TO  NPREV,  C 
C  ALL  12  FROM  1  TO  N  (WHICH  MUST  BE  A  POWER  OF  TWO)  ,  AND  ALL  13  C 
C  FROM  1  TO  HREM,  WHERE  I2REV-1  IS  THE  BITWISE  REVERSAL  OF  12-1.  C 
C  FOR  EXAMPLE,  N  -  32,  12-1  -  10011  AND  I2REV-1  -  11001.  C 
C  C 
C  Subroutine  BITRV  ia  called  by:  F0UR2  C 
C  C 
C  Subroutine  BITRV  makaa  no  external  calls.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DIMENSION  DATA(l) 

IPO-2 

IP1-IP0*NPREV 
IP4-IP1*H 
IPS— IP4  *NR£M 
I4REV-1 

DO  60  14—1 ,  IP4  ,  IP1 

IF  (I4-I4REV)  10,30,30 
10  UMAX— I4+IP1-IP0 

DO  20  11-14,  UMAX,  IPO 
DO  20  IS-I1.IPS.IP4 
I3REV-I4REV+I5-I4 
TEMPR-DATA  (IS) 

TEMPI— DATA(  15+1) 

DATA(  IS  )-DATA(  I5REV) 

DATA( I5+1)-DATA( I5REV+1 ) 

DATA(I5REV)-TEMPR 
20  DATA(I5REV+1)-TEMPI 

30  IP2-IP4/2 

40  IF  (I4REV-IP2)  60,60,50 

50  I4REV-I4REV-IP2 
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IP2-IP2/2 

IP  (IP2-IP1)  60,40,40 
60  I4REV-I4REV+IP2 
RETURN 
END 
C 
C 
C 

SUBROUTINE  COOL2  (DATA,HPREV,N,HREM, ISIGN) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  C 
C  Subroutine  COOL2  is  pert  of  tha  PPT  program.  C 
C  C 
C  C 
C  Subroutine  COOL?  ie  ceiled  by:  POUR2  C 
C  C 
C  Subroutine  COOL2  makes  no  asternal  calls.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DIMENSION  DATA(l) 

TWOPI-2 .  *  (  4  .  «ATAN  (1 .  >  )  *  I  SIGN 
IPO-2 

IP1“IP0*NPREV 
IP4-IP1*N 
IPS— TP4*NREM 
IP2-IP1 
NPART-H 

10  IP  (NPART-2)  30,30,20 

20  NPART— NPART  /  6 

GO  TO  10 
C 

C  DO  A  FOURIER  TRANSFORM  OP  LENGTH  TWO 
C 

30  IP3— IP2*2 

DO  *0  I1-1.IP1.IP0 
DO  *0  13-11. IPS, IP3 
JO-15 
J1-J0+IP2 
TEMPR-DATA(Jl) 

TEMPI— DATA(J1+1) 

DATA! J1 )-DATA( JO) -TEMPR 
DATA(J1+1  )-DATA(J0+l)  -TEMPI 
DATA(  JO  )  -DATA  (  JO  )  +TEMPR 
AO  DATA(  JO+D— DATA!  JO+1  )+TS4PI 

GO  TO  1A0 
C 

C  DO  A  FOURIER  TRANSFORM  OF  LENCTB  FOUR  (FROM  BIT  REVERSED  ORDER) 

C 

50  IP3-I!?2*4 

THETA-TWOPI/  (IP3/IP1) 

SINTB-  SIH(THETA/2. ) 

WSTPR—  2 .  *SINTH*SINTH 
C  COS  (THETA) -1 ,  FOR  ACCURACY. 

WSTPI—  SIH(THETA) 

HR-1. 

UI-0. 

DO  130  I2-1.IP2.IP1 
IF  (12-1)  70,70.60 
60  H2R-HR*HR-UI*HI 

H2I-2 .  »UR*HI 
H3R— H2R*WR-H2I*WI 
H3I-H2R*HI+H2I*WR 
70  I1MAX-I2+IP1-IP0 

DO  120  11-12,  UMAX,  IPO 
DO  120  15-11, IP5.IP3 
JO-13 
J1-JO+IP2 
J2— J1+IP2 
J3-J2+IP2 
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IF  (12-1)  90,90,80 
APPLY  THE  PHASE  SHIFT  FACTORS 
TEMPR-DATA(Jl) 

DATA( J1 )-W2R*TEMPR-U2I*DATA( Jl+1 ) 

DATA( J1+1)«W2R*DATA( J1+1)+W2I*TEMPR 
TEMPR-DATAC  J2  ) 

DATA  (  J2  )  — WR*TEMPR-HI  *DATA  (  J2+1 ) 

DATA<  J2+1)— WR*DATA(  J2+1  )+WI*TEMPR 
TEMPR-DATA(J3) 

DATA(J3)-W3R*TEMPR-W3I*DATA(J3+1) 

DATA(  J3+1  )-«3R*DATA(  J3+1 ) +W3 1  *TD<PR 
TOR-DATA(  JO  )+DATA(  J1 ) 

TOI-DATA(JO+l)+DATA(Jl+l) 

T1R-DATA  ( JO ) -DATA ( J1 ) 

T1I«DATA(J0+1)-DATA(J1+1) 

T2R-DATA(J2)+DATA(J3) 

T2I-DATA( J2+1)+DATA( J3+1) 

T3R-DATA(J2)-DATA(J3) 

T3I-DATA(  J2+1 )  -DATA(  J3+1 ) 

DATA(J0)-T0R+T2R 
DATA(J0+1)-T0I+T2I 
DATA(J2)-T0R-T2R 
DATA(J2+1)-T0I-T2I 
IF  (ISIGH)  100,100,110 
T3R—  T3R 
T3I— T3I 

DATA(J1)-T1R-T3I 
DATA(J1+1)-T1I+T3R 
DATA( J3  )  —T 1R+T3 I 
DATA(J3+1)-T1I-T3R 
TEMPR-WR 

WR-WSTPR*TEMPR-WSTFI*WI+TEMPR 
130  UI-HSTPR»HT+VSTPI*TEMPR+VI 
1*0  IP2-IP3 

IF  (IP3-IP*)  50,150,150 
150  RETURN 
END 
C 
C 

SUBROUTINE  FIXRL  (DATA.N.NREK, ISIGN,  IFORM) 

cccccccccccccccccccccrcccccccccac'c 


c  c 

C  Subroutine  FIXRL  1*  part  of  tha  FFT  program.  It  calculates  C 
C  the  Fourier  transfer®  of  length  N  by  the  Cooley-Tukey  C 
C  algorithm.  The  bits  are  reversed  to  normal  order.  C 
C  C 
C  FOR  IFORM  -  0,  CONVERT  THE  TRANSFORM  OF  A  DOUBLED -UP  REAL  ARRAY, C 
C  CONSIDERED  COMPLEX,  INTO  ITS  TRUE  TRANSFORM.  SUPPLY  ONLY  THE  C 
C  FIRST  HALF  OF  THE  COMPLEX  TRANSFORM,  AS  THE  SECOND  HALF  HAS  C 
C  CONJUGATE  SYMMETRY.  FOR  IFORM  -  -1,  CONVERT  THE  FIRST  HALF  C 
C  OF  THE  TRUE  TRANSFORM  INTO  THE  TRANSFORM  OF  A  DOUBLED -UP  REAL  C 
C  ARRAY.  N  MUST  BE  EVEN.  C 
C  USING  COMPLEX  ROTATION  AND  SUBSCRIPTS  STARTING  AT  ZERO,  THE  C 
C  TRANSFORMATION  IS—  C 
C  DIMENSION  DATA(N.NREM)  C 
C  ZSTP  -  EXP(ISIGN«2»PI*I/N>  C 
C  DO  10  12-0, NR' 1-1  C 
C  DATA( 0 , 12)  -  >NJ(DATA(0,I2))*(1+I  C 
C  .00  10  Il-l.N/*  C 
C  Z  -  (l+(2»IFORM+l)*I*ZSTP**Il)/2  C 
C  I1CNJ  -  N/2-I1  C 
C  DIF  -  DATA(I1 , I2)-CONJ(DATA< I1CNJ, T2) )  C 
C  TEMP  -  Z*DIF  C 
C  DATA(I1 , 12)  -  (DATA(Il,I2)-TEMP)*a-IFORM)  C 
C  10  DATA(I1CNJ,I2)  -  (DATA< I1CNJ ,  I2)+CONJ(TEMP)  )*<  1-IFORM)  C 
C  IF  I1-I1CNJ,  THE  CALCULATION  FOR  THAT  VALUE  COLLAPSES  INTO  C 
C  A  SIMPLE  CONJUGATION  OF  DATA(I1,I2).  C 


80 


90 


100 

110 


120 
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C  C 
C  Subroutine  FIXRL  1*  cal  Led  by:  FOUR2  C 
C  C 
C  Subroutine  FIXRL  Bakes  no  external  call*.  C 
C  C 


cccccccccccccccccccccccccccccccccccc 

DIMENSION  DATA(l) 

DOUBLE  PRECISION  ZR, ZI , ZSTPR, ZSTPI , SINTH, THETA, TVOPI 

TWOPI-2.*(*.*ATAN(l.))*ISIGN 

IPO-2 

IPl-IP0*(N/2) 

IP2— IP1*NREM 
IF  (IFORM)  10,70,70 
C 

C  PACK  TEE  REAL  INPUT  VALUES  (TWO  PER  COLUMN) 

C 

10  J1-IP141 

I I 12-2 

DATA(III2)-DATA(J1) 

IF  (NREM-1)  70,70,20 
20  J1-J1+IP0 

I2MIN— IP141 

DO  60  I2-I2MIN ,  IP2 ,  IP1 
DATA(I2)— DATA(Jl) 

J1-J14IP0 
IF  (N-2)  50,30,30 
30  I1MIN— I2+IP0 

UMAX— I24IP1- IPO 
DO  60  I1-I1MIN, UMAX, IPO 
DATA(  II  )-DATA(  J1 ) 

DATACIl+l  )-DATA(  J1+ 1 ) 

*0  J1-J1+IP0 

50  DATA(I24l)-DATA(Jl) 

60  J1-J1+IP0 

70  DO  80  12-1 , IP2.IP1 
TEKPR-DATACI2) 

DATA  <  12  )  -DATA  ( 12  )  4-DATA  (1 241 ) 

80  DATA(  1241  )-TEMPR-DATA(  1241) 

IF  (N-2)  200,200,90 
90  THETA-TWOPI  /  FLOAT  (  N  ) 

SINTH-  DSIN(THETA/2 .  ) 

ZSTPR— 2.*SINTH»SINTH 
ZSTPI-  DSIN(THETA) 

ZR-(1 . -ZSTPI) (2. 

ZI-(1 -4ZSTPR) /2. 

IF  (IFORM)  100,110,110 
100  ZR-l.-ZR 
ZI— ZI 

110  I1MIN— IP041 

UMAX— IP0*(N/*)4l 
DO  190  I1-I1MIN,  UMAX,  IPO 
DO  180  12-11, IP2.IP1 

I2CNJ— IPO* (N/241) -2*11412 
IF  (I2-I2CNJ)  150,120,120 
120  IF  (ISIGN*(2*IF0RM41) )  130,1*0,1*0 

130  DATA (1241)— -DATA (I 241) 

1*0  IF  (IFORM)  170,180,180 

150  DIFR-DATA( 12) -DATA( I2CNJ ) 

DIFI-DATA(I241)4DATA(I2CNJ41) 

TEMPR-DIFR*ZR-DIFI*ZI 
TEMPI -DIFR*ZI4DIFI *ZR 
DATA(  12  )-DATA(  12)  -TEMPR 
DATA(  1241  )-DATA(  1241) -TEMPI 
DATA  ( I2CNJ )  -DATA  ( I2CN  J )  4TEMPR 
DATA( I2CNJ41 )-DATA( I2CNJ41) -TEMPI 
IF  (IFORM)  160,180,180 
160  DATA ( I2CNJ) -DATA ( I2CNJ) 4DATA (I2CNJ) 

DATA ( I 2CNJ41 ) -DATA ( I2CN J4 1 ) 4DATA (I2CNJ41) 

170  DATA(I2)-DATA(I2)4DATA(I2) 
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DATAC  12+1  ) -DATAC  12+1  )+DATA<  X2+1 ) 

180  CONTINUE 

TEMPR-ZR-.5 

ZR-ZSTPR+TEMPR-ZSTPI+ZI+ZR 
190  ZI-ZSTPR+ZI+ZSTPI+TEMPR+ZI 
C 

C  RECURSION  SAVES  TIKE,  AT  A  SLIGHT  LOSS  IN  ACCURACY.  IF  AVAILABLE, 
C  USE  DOUBLE  PRECISION  TO  COMPUTE  ZR  AND  ZI . 

C 

200  IF  (XFORM)  270,210,210 

C  UNPACK  THE  REAL  TRANSFORM  VALUES  (TWO  PER  COLUMN) 

210  I2-IP2+1 

11-12 

J1-IP0* (N/ 2+1 ) +NREM+1 
GO  TO  250 

220  DATAC  J1  )-DATA(  II ) 

DATAC  Jl+D-DATACIl+l) 

I1-I1-IP0 

J1-J1-IP0 

230  IF  CI2-I1)  220,2*0,2*0 
2*0  DATAC  Ul)— DATAC  II) 

DATAC  Jl+D-O. 

250  I2-I2-IP1 

J1-J1-IP0 

DATAC  J1  )-DATA(  12+1 ) 

DATACJ1+D-0. 

I1-I1-IP0 

J1-J1-IP0 

IF  CI2-1)  260,260,230 
260  III2-2 

DATACIII2)— 0 . 

270  RETURN 
END 
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APPENDIX  D: 
SAMPLE  INPUT  FILE 


Dl.  The  following  text  is  an  example  input  file  for  use  with  vib3 . 

The  set  of  parameters  described  does  not  necessarily  produce  accurate  results. 
Rather,  it  was  chosen  for  its  short  length  and  the  size  of  the  output  file 
that  it  produced.  The  corresponding  output  file  is  listed  in  Appendix  E. 


Homogeneous  system  (Model  1) 


4  by  10 

mesh ,  square 

normalized  load 

(5  by 

5] 

August 

20,  1992 

1  0 

0  0 

149  40 

1 

100000 

1  15.65 

256  13 

3.00 

0.100E-I 

04 

1 

0 . 00000 

0.00000 

1 

0 

2 

125.00000 

0.00000 

0 

0 

3 

250.00000 

0.00000 

0 

0 

4 

375.00000 

0 . 00000 

0 

0 

5 

500 . 00000 

0.00000 

0 

0 

6 

625.00000 

0 . 00000 

0 

0 

7 

750.00000 

0.00000 

0 

0 

8 

875.00000 

0.00000 

0 

0 

9 

1000 . 00000 

0.00000 

0 

0 

10 

1125.00000 

0 . 00000 

0 

0 

11 

1250.00000 

0.00000 

0 

0 

12 

1375.00000 

0 . 00000 

0 

0 

13 

1500.00000 

0.00000 

0 

0 

14 

1625.00000 

0.00000 

0 

0 

15 

1750.00000 

0 . 00000 

0 

0 

16 

1875.00000 

0 . 00000 

0 

0 

17 

2000 . 00000 

0.00000 

0 

0 

18 

2125.00000 

0 . 00000 

0 

0 

19 

2250.00000 

0 . 00000 

0 

0 

20 

2375.00000 

0.00000 

0 

0 

21 

2500.00000 

0.00000 

0 

0 

22 

0.00000 

125.00000 

1 

0 

23 

250.00000 

125.00000 

0 

0 

24 

500 . 00000 

125.00000 

0 

0 

25 

750.00000 

125.00000 

0 

0 

26 

1000 . 00000 

125.00000 

0 

0 

27 

1250.00000 

125.00000 

0 

0 

28 

1500.00000 

125.00000 

0 

0 

29 

1750.00000 

125.00000 

0 

0 

30 

2000.00000 

125.00000 

0 

0 

31 

2250.00000 

125.00000 

0 

0 

32 

2500.00000 

125.00000 

0 

0 

33 

0 . 00000 

250.00000 

1 

0 

34 

125.00000 

250.00000 

0 

0 

35 

250.00000 

250.00000 

0 

0 

36 

375.00000 

250.00000 

0 

0 

37 

500 . 00000 

250.00000 

0 

0 

38 

625.00000 

250.00000 

0 

0 
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39 

750.00000 

250.00000 

0 

0 

40 

875.00000 

250.00000 

0 

0 

41 

1000.00000 

250.00000 

0 

0 

42 

1125.00000 

250.00000 

0 

0 

43 

1250.00000 

250.00000 

0 

0 

44 

1375.00000 

250.00000 

0 

0 

45 

1500.00000 

250.00000 

0 

0 

46 

1625.00000 

250.00000 

0 

0 

47 

1750.00000 

250.00000 

0 

0 

48 

1875.00000 

250.00000 

0 

0 

49 

2000.00000 

250.00000 

0 

0 

50 

2125.00000 

250.00000 

0 

0 

51 

2250.00000 

250.00000 

0 

0 

52 

2375.00000 

250.00000 

0 

0 

53 

2500.00000 

250.00000 

0 

0 

54 

0.00000 

375.00000 

1 

0 

55 

250.00000 

375.00000 

0 

0 

56 

500 . 00000 

375.00000 

0 

0 

57 

750.00000 

375.00000 

0 

0 

58 

1000 . 00000 

375.00000 

0 

0 

59 

1250.00000 

375.00000 

0 

0 

60 

1500.00000 

375.00000 

0 

0 

61 

1750.00000 

375.00000 

0 

0 

62 

2000.00000 

375.00000 

0 

0 

63 

2250.00000 

375.00000 

0 

0 

64 

2500.00000 

375.00000 

0 

0 

65 

0.00000 

500.00000 

1 

0 

66 

125.00000 

500.00000 

0 

0 

67 

250.00000 

500 . 00000 

0 

0 

68 

375.00000 

500.00000 

0 

0 

69 

500 . 00000 

500.00000 

0 

0 

70 

625 . 00000 

500.00000 

0 

0 

71 

750.00000 

500.00000 

0 

0 

72 

875.00000 

500.00000 

0 

0 

73 

1000.00000 

500.00000 

0 

0 

74 

1125.00000 

500 . 00000 

0 

0 

75 

1250.00000 

500.00000 

0 

0 

76 

1375.00000 

500 . 00000 

0 

0 

77 

1500.00000 

500.00000 

0 

0 

78 

1625.00000 

500 . 00000 

0 

0 

79 

1750 . 00G00 

500 . 00000 

0 

0 

80 

1875.00000 

500.00000 

0 

0 

81 

2000.00000 

500.00000 

0 

0 

82 

2125.00000 

500.00000 

0 

0 

83 

2250.00000 

500.00000 

0 

0 

84 

2375.00000 

500 . 00000 

0 

0 

85 

2500.00000 

500 . 00000 

0 

0 

86 

0 . 00000 

625.00000 

1 

0 

87 

250.00000 

625.00000 

0 

0 

88 

500 . 00000 

625.00000 

0 

0 

89 

750.00000 

625.00000 

0 

0 

90 

1000 . 00000 

625.00000 

0 

0 

91 

1250.00000 

625.00000 

0 

0 

92 

1500.00000 

625.00000 

0 

0 
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93 

1750.00000 

625.00000 

0 

0 

94 

2000.00000 

625.00000 

0 

0 

95 

2250.00000 

625.00000 

0 

0 

96 

2500.00000 

625.00000 

0 

0 

97 

0 . 00000 

750.00000 

1 

0 

98 

125.00000 

750.00000 

0 

0 

99 

250.00000 

750.00000 

0 

0 

100 

375.00000 

750.00000 

0 

0 

101 

500.00000 

750.00000 

0 

0 

102 

625.00000 

750.00000 

0 

0 

103 

750.00000 

750.00000 

0 

0 

104 

875.00000 

750.00000 

0 

0 

105 

1000.00000 

750.00000 

0 

0 

106 

1125.00000 

750.00000 

0 

0 

107 

1250.00000 

750.00000 

0 

0 

108 

1375.00000 

750.00000 

0 

0 

109 

1500.00000 

750.00000 

0 

0 

110 

1625.00000 

750.00000 

0 

0 

111 

1750.00000 

750.00000 

0 

0 

112 

1875.00000 

750.00000 

0 

0 

113 

2000.00000 

750.00000 

0 

0 

114 

2125.00000 

750.00000 

0 

0 

115 

2250.00000 

750.00000 

0 

0 

116 

2375.00000 

750.00000 

0 

0 

117 

2500.00000 

750.00000 

0 

0 

118 

0 . 00000 

875.00000 

1 

0 

119 

250.00000 

875.00000 

0 

0 

120 

500.00000 

875.00000 

0 

0 

121 

750.00000 

875.00000 

0 

0 

122 

1000 . 00000 

875.00000 

0 

0 

123 

1250.00000 

875.00000 

0 

0 

124 

1500.00000 

875.00000 

0 

0 

125 

1750.00000 

875.00000 

0 

0 

126 

2000 . 00000 

875.00000 

0 

0 

127 

2250.00000 

875.00000 

0 

0 

128 

2500.00000 

875.00000 

0 

0 

129 

0 . 00000 

1000 . 00000 

1 

1 

130 

125.00000 

1000.00000 

1 

1 

131 

250.00000 

1000.00000 

1 

1 

132 

375.00000 

1000.00000 

1 

1 

133 

500 . 00000 

1000.00000 

1 

1 

134 

625.00000 

1000 . 00000 

1 

1 

135 

750.00000 

1000 . 00000 

1 

1 

136 

875.00000 

1000.00000 

1 

1 

137 

1000 . 00000 

1000 . 00000 

1 

1 

138 

1125.00000 

1000.00000 

1 

1 

139 

1250.00000 

1000 . 00000 

1 

1 

140 

1375.00000 

1000 . 00000 

1 

1 

141 

1500.00000 

1000 . 00000 

1 

1 

142 

1625.00000 

1000 . 00000 

1 

1 

143 

1750.00000 

1000.00000 

1 

1 

144 

1875.00000 

1000 . 00000 

1 

1 

145 

2000 . 00000 

1000.00000 

1 

1 

146 

2125.00000 

1000 . 00000 

1 

1 
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147 

2250.00000 

1000. 

,  00000 

148 

2375.00000 

1000 

.00000 

149 

2500.00000 

1000 

,  00000 

1 

3 

1 

2 

3 

0 

3 

3 

0 

4 

3 

0 

5 

3 

0 

6 

3 

0 

7 

3 

0 

8 

3 

0 

9 

3 

0 

10 

3 

0 

11 

3 

0 

12 

3 

0 

13 

3 

0 

10 

4 

1 

1  1 

22 

33 

2 

1  3 

23 

35 

3 

1  5 

24 

37 

4 

1  7 

25 

39 

5 

1  9 

26 

41 

6 

1  11 

27 

43 

7 

1  13 

28 

45 

8 

1  15 

29 

47 

9 

1  17 

30 

49 

10 

1  19 

31 

51 

11 

1  33 

54 

65 

12 

1  35 

55 

67 

13 

1  37 

56 

69 

14 

1  39 

57 

71 

15 

1  41 

58 

73 

16 

1  43 

59 

75 

1/ 

1  45 

60 

77 

18 

1  47 

61 

79 

19 

1  49 

62 

81 

20 

1  51 

63 

83 

21 

1  65 

86 

97 

22 

1  67 

87 

99 

23 

1  69 

88 

101 

24 

1  71 

89 

103 

25 

1  73 

90 

105 

26 

1  75 

91 

107 

27 

1  77 

92 

109 

28 

1  79 

93 

111 

29 

1  81 

94 

113 

30 

1  83 

95 

115 

31 

1  97 

118 

129 

32 

1  99 

119 

131 

33 

1  101 

120 

133 

34 

1  103 

121 

135 

35 

1  105 

122 

137 

36 

1  107 

123 

139 

37 

1  109 

124 

141 

1  1 
1  1 
1  1 


2 

34 

3 

23 

35 

4 

36 

5 

24 

37 

6 

38 

7 

25 

39 

8 

40 

9 

26 

41 

10 

42 

11 

27 

43 

12 

44 

13 

28 

45 

14 

46 

15 

29 

47 

16 

48 

17 

30 

49 

18 

50 

19 

31 

51 

20 

52 

21 

32 

53 

34 

66 

35 

55 

67 

36 

68 

37 

56 

69 

38 

70 

39 

57 

71 

40 

72 

41 

58 

73 

42 

74 

43 

59 

75 

44 

76 

45 

60 

77 

46 

78 

47 

61 

79 

48 

80 

49 

62 

81 

50 

82 

51 

63 

83 

52 

84 

53 

64 

85 

66 

98 

67 

87 

99 

68 

100 

69 

88 

101 

70 

102 

71 

89 

103 

72 

104 

73 

90 

105 

74 

106 

75 

91 

107 

76 

108 

77 

92 

109 

78 

110 

79 

93 

111 

80 

112 

81 

94 

113 

82 

114 

83 

95 

115 

84 

116 

85 

96 

117 

98 

130 

99 

119 

131 

100 

132 

101 

120 

133 

102 

13i 

103 

121 

135 

104 

136 

105 

122 

137 

106 

138 

107 

123 

139 

108 

140 

109 

124 

141 

110 

142 

111 

125 

143 
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38 

1 

111 

125 

143 

112 

144 

113 

126 

145 

39 

1 

113 

126 

145 

114 

146 

115 

127 

147 

40 

1 

115 

127 

147 

116 

148 

117 

128 

149 

4 . 0E06 

0.40 

0.02  4. 

0.2  2.5 
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APPENDIX  E; 
SAMPLE  OUTPUT  FILE 


El.  The  following  text  is  an  example  output  file  produced  by  vib3 
using  the  input  file  listed  in  Appendix  D.  The  results  are  not  particularly 
accurate  but  shown  how  the  data  are  presented  using  the  minimal  output 
options.  The  distribution  of  vertical  displacements  in  the  y-direction  from 
the  center  of  the  load  are  shown  in  Figure  E-l  along  with  the  Green's  function 
solution. 

*******************  PROGRAM  VIB3  ******************** 

This  program  was  written  to  solve  for  dynamic  displace¬ 
ments  in  complex  soil/geologic  media  using  a  2-D  finite 
element  formulation.  The  formulation  assumes  planar 
geometry  and  material  properties  in  the  out-of-plane 
direction  and  a  harmonic  source  acting  on  the  surface. 

This  program  was  written  by  David  Sykora,  at  US  Army 
Engineer  Waterways  Experiment  Station  (WES),  Vicksburg, 

MS,  under  sponsorship  of  ILIR  program  (FY90-92). 

Prof.  Jose  Roesset,  Univ.  of  Texas  at  Austin,  developed 
the  condensation  procedure  used  in  the  formulation  as 
successfully  implemented  by  Dr.  Kang  (1990)  for  pave¬ 
ment  systems.  Solver  subroutines,  the  FFT  routines,  and 
the  basic  framework  of  the  finite  element  program  were 
obtained  from  Profs.  Roesset  and  Tassoulas,  UT. 

THIS  SOFTWARE  IS  DISTRIBUTED  AS  IS  AND  WITHOUT  WARRANTY 
AS  TO  PERFORMANCE.  THE  USER  MUST  ASSUME  THE  RISK  OF 
USING  THIS  SOFTWARE! 


Homogeneous  system  (Model  1) 

4  by  10  mesh,  square  normalized  load  (5  by  5) 
August  20,  1992 


*****GENERAL  PARAMETERS: 

NUMBER  OF  TERMS  FOR  FFT:  256 
INCREMENT  OF  Y  (DY) :  15.65 
NUMBER  OF  MATERIAL  TYPES:  1 
NUMBER  OF  NODES  OF  INTEREST:  1 
"BIG":  . 1000000E+51 
MAXIMUM  ARRAY  ALLOCATION:  100000 
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***** PARAMETERS  FOR  3-D  MESH: 


NUMBER  OF  DIMENSIONS:  3 
NUMBER  OF  ELEMENTS:  40 
NUMBER  OF  NODES:  298 
NUMBER  OF  NODES/ELEMENT:  16 
DEGREES  OF  FREEDOM/NODE:  3 
DEGREES  OF  FREEDOM/ELEMENT:  48 

♦♦♦♦♦PARAMETERS  FOR  CONDENSED  MESH: 

NUMBER  OF  DIMENSIONS:  3 
NUMBER  OF  ELEMENTS:  40 
NUMBER  OF  NODES:  149 
NUMBER  OF  NODES/ELEMENT:  8 
DEGREES  OF  FREEDOM/NODE:  3 
DEGREES  OF  FREEDOM/ELEMENT:  24 


FREQUENCIES  OF  INTEREST  (Hz): 


3.000  0.000 

NODES  OF  INTEREST: 

0.000 

0.000 

0.000 

0.000 

10  0  0 

*****HATERIAL  PROPERTIES  : 

0 

0 

0  0 

SHEAR 

POISSONS 

DAMPING 

MASS 

MAT  MODULUS 

RATIO 

RATIO 

DENSITY 

***  *********** 

-■  1  ■  !.  *  -  -  t  -  i  - 

xxxXxxx 

******* 

******* 

1  0.40000E+07 

0.40 

0.02 

4.00 

*****LOADS : 

SUBROUTINE  YLOAD  ASSUMES  THAT  A  NORMALIZED  LOAD  IS  BEING  USED! 


Left-most  extent  of  load  in  x-direction  -  0.00 

Right-most  extent  of  load  in  x-direction  -  2.50 


DISTRIBUTED  LOAD 
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★★★★♦OUTPUT  (DISPLACEMENTS) 


CALCULATED  AMPLITUDES  AT:  3.00  Hz 


AMPLITUDES  CORRESPONDING  TO  NODE:  1 

(X-  0 . 000E+00  )  (Z-  0 . 000E+00  ) 

VARIATION  OF  VERTICAL  (Z)  COMPONENTS  IN  Y  DIRECTION 


Y 

REAL  PART 

IMAG.  PART 

MAGNITUDE 

0 . 000E+00 

0 . 154E-08 

-0.475E-09 

0 . 161E-08 

-0 

0 . 156E+02 

0 . 978E-09 

-0.445E-09 

0. 107E-08 

-0 

0. 313E+02 

0 . 619E-09 

-0.409E-09 

0 . 742E-09 

-0 

0.469E+02 

0 . 378E-09 

-0 . 367E-09 

0 . 526E-09 

-0 

0 . 626E+02 

0 . 210E-09 

-0 . 318E-09 

0 . 381E-09 

-0 

0 . 782E+02 

0.922E-10 

-0 . 264E-09 

0 . 279E-09 

-0 

O.939E+02 

0. 118E-10 

-0 . 207E-09 

0 . 208E-09 

-0 

0 . 110E+03 

-0.401E-10 

-0 . 151E-09 

0. 156E-09 

-0 

0. 125E+03 

-0.696E-10 

-0 . 969E-10 

0 . 119E-09 

-0 

0 . 141E+03 

-0. 812E-10 

-0.478E-10 

0.943E-10 

-0 

0 . 156E+03 

-0 . 791E-10 

-0 . 557E-11 

0.793E-10 

-0 

0 . 172E+03 

-0.667E-10 

0.284E-10 

0.725E-10 

0 

0 . 188E+03 

-0.476E-10 

0 . 531E-10 

0.713E-10 

0 

0.203E+03 

-0. 247E-10 

0. 684E-10 

0.728E-10 

0 

0.219E+03 

-0.832E-12 

0 . 746E-10 

0.746E-10 

0 

0 . 235E+03 

0. 217E-10 

0.727E-10 

0.758E-10 

0 

0 . 250E+03 

0.412E-10 

0 . 638E-10 

0. 759E-10 

0 

0. 266E+03 

0. 562E-10 

0.498E-10 

0. 751E-10 

0 

0 . 282E+03 

0.661E-10 

0 . 324E-10 

0. 736E-10 

0 

0 . 297E+03 

0. 706E-10 

0 . 136E-10 

0.719E-10 

0 

0. 313E+03 

0. 701E-10 

-0.481E-11 

0.703E-10 

-0 

0 . 329E+03 

0.653E-10 

-0 . 213E-10 

0.687E-10 

-0 

0 . 344E+03 

0.572E-10 

-0.347E-10 

0.669E-10 

-0 

0 . 360E+03 

0.469E-10 

-0.442E-10 

0.645E-10 

-0 

0 . 376E+03 

0. 357E-10 

-0.493E-10 

0 . 609E-10 

-0 

0 . 39IE+03 

0 . 249E-10 

-0 . 502E-10 

0.560E-10 

-0 

0.407E+03 

0. 153E-10 

-0.472E-10 

0.496E-10 

-0 

0.423E+03 

0.780E-11 

-0.412E-10 

0.419E-10 

-0 

0.438E+03 

0. 288E-11 

-0. 331E-10 

0.332E-10 

-0 

0.454E+03 

0. 677E-12 

-0. 239E-10 

0.240E-10 

-0 

0.469E+03 

0, 105E-11 

-0. 150E-10 

0.150E-10 

-0 

0.485E+03 

0. 358E-11 

-0.716E-I1 

0.800E-11 

-0 

0 . 501E+03 

0 . 761E-1I 

-0.135E-I1 

0.773E-11 

-0 

0 . 5I6E+03 

0.124E-10 

0.186E-11 

0.125E-10 

0 

0 . 532E+03 

0.171E-10 

0.220E-II 

0. 172E-IO 

0 

0 . 548E+03 

0.209E-10 

-0.313E-12 

0.209E-10 

-0 

0. 563E+03 

0.231E-10 

-0. 536E-11 

0.237E-10 

-0 

0 . 579E+03 

0.233E-10 

-0.123E-10 

0.264E-10 

-0 

0 . 595E+03 

0.212E-10 

-0.205E-10 

0.295E-10 

-0 

0.610E+03 

0.167E-10 

-0.289E-I0 

0.334E-10 

-0 

0.626E+03 

0.102E-10 

-0 . 367E-10 

0.381E-10 

-0 

0.642E+03 

0.193E-11 

-0.430E-10 

0.430E-10 

-0 
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PHASE 
171E+02 
245E+02 
335E+02 
442E+02 
566E+02 
707E+02 
867E+02 
105E+03 
126E+03 
150E+03 
i 76E+03 
157E+03 
.  I32E+03 
110E+03 
.  906E+02 
.  733E+02 
.  572E+02 
.  415E+02 
261E+02 
.  109E+02 
.  393E+01 
.  18IE+02 
.  313E+02 
433E+02 
541E+02 
637E+02 
.  721E+02 
.  793E+02 
.  850E+02 
.  884E+0? 
.  860L+02 
.  635E+02 
.  101E+02 
.  856E+01 
.  736E+01 
.  859E+00 
.  131E+02 
.  279E+02 
.  441E+02 
.  600E+02 
.  743E+02 
.  874E+02 


0. 657E+03 
0 . 673E+03 
0 . 689E+03 
0. 704E+03 
0 . 720E+03 
0. 736E+03 
0 . 751E+03 
0. 767E+03 
0. 783E+03 
0.798E+03 
0 . 814E+03 
0. 829E+03 
0 . 845E+03 
0. 861E+03 
0 . 876E+03 
0 . 892E+03 
0.908E+03 
0. 923E+03 
0 . 939E+03 
0 . 955E+03 
0 . 970E+03 
0.986E+03 
0 . 100E+04 
0 . 102E+04 
0.103E+04 
0 . 105E+04 
0 . 106E+04 
0 . 108E+04 
0. 110E+04 
0.1UE+04 
0 . 113E+04 
0.114E+04 
0 . 116E+04 
0 . 117E+04 
0.119E+04 
0 . 121E+04 
0 . 122E+04 
0 . 124E+04 
0.125E+04 
0. 127E+04 
0 . 128E+04 
0 . 130E+04 
0 . 131E+04 
0.133E+04 
0 . 135E+04 
0 . 136E+04 
0.138E+04 
0.139E+04 
0. 141E+04 
0 . 142E+04 
0 . 144E+04 
0 . 146E+04 
0 . 147E+04 
0 . 149E+04 


0. 736E-11 
0.170E-10 
0.261E-10 
0. 340E-10 
0.400E-10 
0.436E-10 
0.445E-10 
0.426E-10 
0.381E-10 
0. 312E-10 
0. 226E-10 
0. 129E-10 
0. 276E-11 
0.69OE-11 
0.157E-10 
0. 228E-10 
0 . 278E-10 
0.306E-10 
0. 310E-10 
0. 291E-10 
0.254E-10 
0.203E-10 
0. 142E-10 
0. 771E-11 
0. 147E-11 
0.404E-11 
0. 843E-11 
0 . 114E-10 
0. 128E-10 
0. 127E-10 
0. 113E-10 
0.863E-11 
0.522E-11 
0.140E-11 
0. 245E-11 
0.596E-11 
0.884E-11 
0.109E-10 
0.120E-10 
0. 122E-10 
0 . 115E-10 
0. 101E-10 
0.830E-11 
0. 628E-11 
0.430E-11 
0. 257E-11 
0 . 125E-11 
0.431E-12 
0.115E-12 
0.237E-12 
0 . 665E-12 
0. 122E-11 
0. 169E-11 
0.187E-11 


-0.470E-10 
-0.482E-10 
-0.464E-10 
-0.415E-10 
-0.338E-10 
-0.238E-10 
-0.123E-10 
-0. 173E-13 
0. 121E-10 
0.231E-10 
0. 322E-10 
0. 388E-10 
0.425E-10 
0.431E-10 
0.406E-10 
0. 354E-10 
0 . 280E-10 
0.192E-10 
0. 963E-11 
0.239E-12 
-0.821E-11 
-0. 150E-10 
-0.197E-10 
-0.218E-10 
-0.214E-10 
-0 . 184E-10 
-0. 134E-10 
-0.670E-11 
0 . 950E-12 
0.885E-11 
0.163E-10 
0.225E-10 
0.270E-10 
0.294E-10 
0.294E-10 
0 . 270E-10 
0 . 224E-10 
0. 159E-10 
0.810E-11 
-0.482E-12 
-0.915E-11 
-0. 173E-10 
-0.242E-10 
-0. 296E-10 
-0.330E-10 
-0.343E-10 
-0 . 335E-10 
-0. 308E-10 
-0.265E-10 
-0 . 210E- 10 
-0.149E-10 
-0. 869E-11 
-0.285E-11 
0.218E-11 


0.475E-10 
0.511E-10 
0.532E-10 
0.536E-10 
0.523E-10 
0.497E-10 
0.461E-10 
0.426E-10 
0.399E-10 
0.388E-10 
0 . 393E-10 
0.409E-10 
0.426E-10 
0.436E-10 
0.435E-10 
0.421E-10 
0.395E-10 
0.361E-10 
0.324E-10 
0. 291E-10 
0 . 267E-10 
0.252E-10 
0.242E-10 
0. 231E-10 
0.214E-10 
0.189E-10 
0. 158E- 10 
0. 132E- 10 
0.129E-10 
0.155E-10 
0.198E-10 
0.241E-10 
0.275E-10 
0.295E-10 
0.293E-10 
0.277E-10 
0.241E-10 
0.193E-10 
0.145E-10 
0.122E-10 
0.147E-10 
0.200E-10 
0.256E-10 
0.303E-10 
0.333E-10 
0.344E-10 
0.335E-10 
0 . 308E- 10 
0.265E-10 
0.210E-10 
0.149E-10 
0. 878E-11 
0.331E-11 
0.287E-11 


E5 


0 . 989E+02 
0 . 109E+03 
0 . 119E+03 
0 . 129E+03 
0 . 140E+03 
0 . 151E+03 
0 . 165E+03 
0. 180E+03 
0 . 162E+03 
0 . 144E+03 
0 . 12 jE+03 
0. 108E+03 
0 . 937E+02 
0 . 808E+02 
0 . 688E+02 
0. 572E+02 
0.452E+02 
O.321E+02 
0. 173E+02 
0 . 469E+00 
0 . 179E+02 
0 . 366E+02 
0 . 543E+02 
0. 705E+02 
0 . 861E+02 
0 . 102E+03 
0.122E-C3 
0.150E+03 
0 . 176E+03 
0 . 145E+03 
0 . 125E+03 
0. 111E+03 
0.101E+03 
0 . 927E+02 
0 . 852E+02 
0 . 776E+02 
0 . 685E+02 
0 . 557E+02 
0 . 340E+02 
0 . 227E+01 
0 . 386E+02 
0 . 596E+02 
0 . 711E+02 
0 . 780E+02 
0 . 826E+02 
0 . 857E+02 
0 . 879E+02 
0. 892E+02 
0 . 898E+02 
0 . 894E+02 
0 . 874E+02 
0 . 820E+02 
0. 594E+02 
0 . 494E+02 


0 . 150E+04 

0.159E-11 

0 . 608E- 11 

0.628E-11 

0. 

0. 152E+04 

0. 713E-12 

0.866E-11 

0.869E-11 

0. 

0 . 153E+04 

-0.813E-12 

0.989E-11 

0.993E-11 

0. 

0. 155E+04 

-0. 297E-11 

0. 987E-11 

0.103E-10 

0. 

0 . 156E+04 

-0. 567E-11 

0. 883E-11 

0.105E-10 

0. 

0.158E+04 

-0.873E-11 

0.711E-11 

0.113E-10 

0. 

0 . 1G0E+04 

-0.119E-10 

0.510E-11 

0 . 130E-10 

0. 

0. 161E+04 

-0. 150E-10 

0.322E-11 

0.153E-10 

0. 

0. 163E+04 

-0.176E-10 

0. 187E-11 

0 . 177E-10 

0. 

0 . 164E+04 

-0 . 195E-10 

0 . 139E-11 

G. 196E-10 

0. 

0 . 166E+04 

-0. 206E-10 

0.200E-11 

0.207E-10 

0. 

0 . 167E+04 

-0. 205E-10 

0. 381E-11 

0.209E-10 

0. 

0 . 169E+04 

-0 . 194E-10 

0.679E-11 

0.205E-10 

0. 

0 . 171E+04 

-0 . 171E-10 

0.107E-10 

0.202E10 

0. 

0 . 172E+04 

-0. 139E-10 

0.154E-10 

0 . 207E- 10 

0. 

0. 174E+04 

-0.981E-11 

0.203E-10 

0.225E-10 

0. 

0.175E+04 

-0.525E-11 

0.250E  10 

0.255E-10 

0. 

0 . 177E+04 

-0.510E-12 

0.289E-10 

0.290E-10 

0. 

0.178E+04 

0.408E-11 

0. 317E-10 

0.320E-10 

0. 

0 . 180E+04 

0  818E-11 

0 . 328E-10 

0. 338E-10 

0. 

0 . 182E+04 

0. 1I5E-10 

0. 320E-10 

0.340E-10 

0. 

0 . 183E+04 

0 . 138E-10 

0.291E-10 

0 . 322E-10 

0. 

0 . 185E+04 

0.151E-10 

U.240E-10 

0.283E-10 

0. 

0 . 186E+04 

0.151E-10 

0.170E-10 

0.227E-10 

0. 

0 . 188E+04 

0.141E-10 

0.829E-11 

0. 163E-10 

0. 

0. 189E+04 

0. 121E-10 

-0 . 156E-11 

0.122E-10 

-0. 

0 . 191E+04 

0. 945E-11 

-0. 120E-10 

0. 153E-10 

0. 

0 . 192E+04 

0.642E-11 

-O.224E-I0 

0.233E-10 

-0. 

0 . 194E+04 

0. 334E-11 

-0. 320E-10 

0. 322E-10 

-0. 

0 . 196E+04 

0 . 530E-12 

-0.403E-10 

0.403E-10 

-0. 

0. 197E+04 

-0 . 171E-11 

-0.466E-10 

0.467E-10 

-0 

0 . 199E+04 

-0. 316E-11 

-0.506E-10 

0.507E-10 

-0 

0 . 200E+04 

-0.365E-11 

-0.520E-10 

0 . 521E- 10 

-0. 

AMPLITUDES  CORRESPONDING 

TO  NODE: 

2 

<X-  0.125E+03  ) 

(Z-  0 . 000E+00  ) 

VAE.IATION  OF 

VERTICAL  (Z) 

COMPONENTS 

IN  Y  DIRECTION 

Y 

REAL  PART 

IMAG.  PART 

MAGNITUDE 

0 . 000E+00 

-0. 794E-10 

-0 . 123E-09 

0. 146E-09 

-0 

AMPLITUDES  CORRESPONDING 

TO  NODE: 

3 

(X-  0. 250E+03  ) 

(Z-  0 . 000E+00  ) 

VARIATION  OF 

VERTICAL  (Z) 

■  COMPONENTS 

IN  Y  DIRECTION 

Y 

REAL  PART 

IMAG.  PART 

MAGNITUDE 

0 . 000E+00 

-0.629E-I0 

0. 120E-09 

0. 136E-09 

0 

754E+02 
853E+02 
947E+02 
107E+03 
123E+03 
141E+03 
157E+03 
168E+03 
174E+03 
176E+03 
174E+03 
169E+03 
161E+03 
148E+03 
132E+03 
116E+03 
102E+03 
910E+02 
827E+02 
760E+02 
702E+02 
645E+02 
579E+02 
483E+02 
305E+02 
733E+01 
518E+02 
.  740E+02 
.  840E+02 
892E+02 
.  921E+02 
.  936E+02 
.  940E+02 


PHASE 
.  123E+03 


PHASE 
. 118E+03 


E6 


AMPLITUDES  CORRESPONDING 
(X-  0. 375E+03  ) 

TO  NODE:  4 

(Z-  0. OOOE+OO  ) 

VARIATION  OF  VERTICAL  (Z) 

COMPONENTS 

IN  Y  DIRECTION: 

Y 

0 . OOOE+OO 

REAL  PART 
0.363E-10 

IMAG.  PART 
-0. 160E-10 

MAGNITUDE 

0.397E-10 

PHASE 
-0 . 238E+02 

AMPLITUDES  CORRESPONDING 
(X-  0 . 500E+03  ) 

TO  NODE:  5 

(Z-  0. OOOE+OO  ) 

VARIATION  OF  VERTICAL  (Z) 

COMPONENTS 

IN  Y  DIRECTION: 

Y 

0 . 000E+00 

REAL  PART 
0.419E-11 

IMAG.  PART 
-0.266E-10 

MAGNITUDE 

0.270E-10 

PHASE 
-0 . 811E+02 

AMPLITUDES  CORRESPONDING 
(X-  0 . 625E+03  ) 

TO  NODE:  6 

(Z-  0. OOOE+OO  ) 

VARIATION  OF  VERTICAL  (Z) 

COMPONENTS 

IN  Y  DIRECTION: 

Y 

0 . 000E+00 

REAL  PART 
-0.578E-I1 

IMAG.  PART 
0.448E-10 

MAGNITUDE 

0.451E-10 

PHASE 

0 . 974E+02 

AMPLITUDES  CORRESPONDING 
(X-  0. 750E+03  ) 

TO  NODE:  7 

(Z-  0. OOOE+OO  ) 

VARIATION  OF  VERTICAL  (Z) 

COMPONENTS 

IN  Y  DIRECTION: 

Y 

0 . OOOE+OO 

REAL  PART 
0.412E-10 

IMAG.  PART 
-0.455E-10 

MAGNITUDE 

0 . 614E-10 

PHASE 

-0.478E+02 

AMPLITUDES  CORRESPONDING 
(X-  0 . 875E+03  ) 

TO  NODE :  8 

(Z-  0. OOOE+OO  ) 

VARIATION  OF  VERTICAL  (Z) 

COMPONENTS 

IN  Y  DIRECTION: 

Y 

0 . OOOE+OO 

REAL  PART 
-0.214E-10 

IMAG.  PART 
-0.252E-10 

MAGNITUDE 

0.330E-10 

PHASE 
-0 . 130E+03 

AMPLITUDES  CORRESPONDING  TO  NODE:  9 

(X-  0 . 100E+04  )  (Z-  0 . 000E+00  ) 


E7 


VARIATION  OF  VERTICAL  (Z) 

COMPONENTS 

IN  Y  DIRECTION 

Y 

0 . OOOE+OO 

REAL  PART 
-0.216E-10 

IMAG.  PART 
0.758E-10 

MAGNITUDE 
0.788E-10  0 

AMPLITUDES  CORRESPONDING 
(X-  0 . 112E+04  ) 

TO  NODE:  10 

(Z-  0. OOOE+OO  ) 

VARIATION  OF  VERTICAL  (Z) 

COMPONENTS 

IN  Y  DIRECTION 

Y 

0. OOOE+OO 

REAL  PART 
0.278E-10 

IMAG.  PART 
0.432E-11 

MAGNITUDE 
0.281E-10  0 

AMPLITUDES  CORRESPONDING 
(X-  0 . 125E+04  ) 

TO  NODE:  11 

(Z-  0. OOOE+OO  ) 

VARIATION  OF  VERTICAL  (Z) 

COMPONENTS 

IN  Y  DIRECTION 

Y 

0. OOOE+OO 

REAL  PART 

0 . 976E-11 

IMAG.  PART 
-0.483E-10 

MAGNITUDE 
0.493E-10  -0 

AMPLITUDES  CORRESPONDING 
(X-  0. 137E+04  ) 

TO  NODE:  12 

(Z-  0. OOOE+OO  ) 

VARIATION  OF  VERTICAL  (Z) 

COMPONENTS 

IN  Y  DIRECTION 

Y 

0 . OOOE+OO 

REAL  PART 
-0 . 580E-11 

IMAG.  PART 
0. 781E-11 

MAGNITUDE 
0.973E-11  0 

AMPLITUDES  CORRESPONDING 
(X-  0. 150E+04  ) 

TO  NODE:  13 

(Z-  0. OOOE+OO  ) 

VARIATION  OF  VERTICAL  (Z) 

COMPONENTS 

IN  Y  DIRECTION 

Y 

0 . OOOE+OO 

REAL  PART 
-0.628E-11 

IMAG.  PART 
-0.575E-11 

MAGNITUDE 

0. 852E-11  -0 

E8 


PHASE 

106E+03 


PHASE 

884E+01 


PHASE 

786E+02 


PHASE 

127E+03 


PHASE 
.  138E+03 


IMAGINARY  PART,  B,  *10“  REAL  PART,  A,  *10 


/  =  3.0  Hz  Ay/A  =  0.05 

, 8  =  0.02  NM  =  256 


0.0  1.0  2.0  3.0  4.0  5.C 

HORIZONTAL  DISTANCE  (in  X  ) 


Figure  E-l.  Variation  of  dynamic  vertical  displacements  for  example 
problem  shoving  Green's  function  solutions 
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